UDmpnaaor Assembler 

no TRS-80 

comQUASARIV, 

urn jogo-exemplo. 
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A COMUNICACAO DOS DADOS 



A SYSDATA GANHA 

DINHEIRO FAZENDO 

MICROCOMPUTADORES 

COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voce espera 
de urn grande micro. 



Compatfvel com o TRS-80 
Mod el o 111 da Radio Shack. 
Gabinete, teclado o CPU em 
mod u Ins independentes. 
Versdes de 04 a 128 KBytes de 
RAM. 16 KBytes de ROM, 
Teclado profissional com 
numeric© reduzido e 4 teclas 
de funcdes. 

Sistema operacional de disco 
DOS III ou CP/M 2.2. 
Caracteres graTicos, 
Vfdeo composto com 18 MHZ 
de faixa de passagem. 
Saida para impressora 
Bla, 




SYSDATA III 

Software disport fvel 
variado. Escolha o seu. 

Videotexto(TELESP). 
Projeto Cirandao 
(EMBRATEL). 
Rede de telex. 
Sistema Gerenciador de 
Banco de Dados (SGBO), 
DBASE Fl. 

Compiladores Cobol, 
Fortran, Pascal, Basic, Forth. 
• e Pilot, 




Editor de lextos. Editor de Assembler. 

Desassemb la dor. 

Debugador. 

Visicalc, 

Wordstar, 

emuitosoutros. 




SYSDATA III 

Caract eristic as tecnieas. 

Para aqueles que querent 

saber tudo. 

Total compatibilidade com o 

TRS-80 Modelo III da Radio 

Shack. 

Processed or Z-80-A. 

Vfdeo de 16 x 64 ou 16 x 32 

flinhasx col unas] 

Alimenlacaode 110 V ou 220 V, 

Teclado atfanumerico de 

69 teclas, 

Teclado numerico reduzido 

com 4 teclas de funcdes. 

GraTicos com 128 x 48 pontos 

no video, 

Aceita ate duas RS-232-C 

(Sincronas ou Assincronas). 

Modem (opcional). 

Saida para lei a para 

impressora. 

Place controladora para ale 

4 drives de 5 e Itt , dupla 

densidade (180 KBytes nor 

face), face simples (dupla lace 

opcional). 

Opcoes futuras: 

Video compatfvel 16 x 64. 
i—^——— 16x32, 24x80ou24x40 

(linhasxcolunas). 

Expansao ate 256 KBvtes 

de RAM, 

Alta resolucao grjifica e cor. 

Interface para acionamenta de disco rlgido 

(Winchester) de 5. 10 ou 20 MBytes. 

Clock dobrado (4,0 MHZ). 

Total compatibilidade com o TRS-80 

Mod, IV. 
CP/M versao 3.0. 
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A VIAGEM DOS DADOS 

Neste artigo, Roberto Quito de Sant'Ana comenta que o grande asstmto do 
momento nas rodas de hobbystas e usuarios de micros e a transmissao de 
dados, ou simplesmente a comunicacao entre os equipamentos. 
Em linguagem acessivel, ele explica os sistemas em funcionamento no 
Brasil e da uma visao panoramica a respeito de como se processam a saida 
e a entrada dos dados nas m£quinas. 
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QUASAR IV, UMA AVENTURA COMPILADA 

usuario vai conhecer neste artigo toda a profundidade do Quasar IV, um 
jogo cuja principal caracteristica e fugir da formula do interpretador, 
considerado monotono ou muito lento por alguns. Trata-se, segundo Lavio 
Pareschi, de um passatempo com multiplas opcoes, que ora exigem sorte, 
as vezes malandragem, quando nao muita habilidade. Um jogo facil, dificil, 
desafiante. 
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ARQUIVOS EM DISCO DO NEWDOS/80 

Conclusao do artigo cuja primeira parte foi publicada em MS 39. 
Nesta ultima parte Joao Henrique Volpini Mattos ensina a praticar os novos 
comandos utilizados com os arquivos NEWDOS/80, de maneira simples, 
fazendo com que o usuario perca o natural temor de se aventurar por 
caminhos que alguns consideram complicados, como esses arquivos. 
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OS PERIGOS DATELEMATICA 

A m£quina pensa ou nao? Bern, este assunto e outras questoes de profunda 
subjetividade filosofica sao expostos e comentados de forma bem 
humorada por Luis Carlos Eiras, em mais um conto em que a informatica e 
o ponto central. Ele narra as experiencias de um usuario que se aventura a 
utilizar seu equipamento em busca de contatos com outros seres terrenos 
durante a madrugada. 



OH AUTOMAQAO: UM CAM IN HO PARA 
£U AS REDES LOCAIS - Como sao e quais 
as vantagens das redes locais. Veja neste artigo 
de Amaury Moraes Junior. 

O/J MODEMS, UM PERIF^RICO EM 
tLmfj VOGA - Uma abordagem abrangente 
acerca desse importante periferico na 
comunicacao de dados. Reportagem. 



AQ APPLE, O MAPA DA ROM - Aldo 
frO Felicio Naletto Junior, na primeira parte 
de seu artigo, comeca a explicar o mapa da ROM 
do Apple. 



BANCO DE SOFTWARE 

* 64 - Polvo Gigante * 66 - Curvas Fantasticas 

* 69 - Lista Telefonica * 72 Solitario 



SECOES 



4 EDITORIAL 
6 CARTAS 



24 BITS 
74 DICAS 



76 CLASSIFICADOS 
78 LIVROS 



Svsdata cletronica Itda. 01155- Av. PacaembLi. 7B8 ■ Pacaenibii - SP- Fone; [011)826.4077 



MICRO SISTEMAS, mar?o/85 



51 




A est a altura do campeonato, voce jd deve estar sentindo leves 
j/ W vent os de mudancas no perfil de MS. E hem verdade que 
jljL ainda e cedo para julgar se tais mudancas sao boas ou ruins, 
porem tenho certeza de que, em dois ou tresmeses, estaremosas volt as 
com um batalhao de cartas, dos mats variados pontos do Brasil, cada 
qual trazendo, no minimo, uma sugestao ou critica. 

Seria um exagero dizer que sao essas cartas que nos levam ao 
caminho A ou B, mas certamente elas constituent parte fundamental 
de nosso combustivel. A partir delas, a gente reflete bastante, 
discute — e como — e decide manter ou alterar o rumo. As vezes nao 
conseguimos nos esquecer, mesmo em casa, nos fms-de-semana, dos 
elogips apaixonados ou das criticasferozes. 

Eimensa a responsabilidade de ter um grupo de lei tores tao 
atentos. Nao nos permite a inertia, jamais. Tambem ofatode estar mos 
ha quatro anos batalhando neste mercado nos deu experiencia 
suftciente para fugir da acomodacao. Durante este tempo, MICRO 
SISTEMAS esteve sempre inovando; levando ao lei tor importantes 
informacoese, principalmente, servindo de ponte entre o usudrio e a 
industria. Essafoi nossa maior preocupacao: criar condicoes para que 
nossos lei tores vivessem plenamente os recursos oferecidos pelo 
mercado brasileiro de microinformdtica. 

Masndsvamosmudar. O que era bom em MS, trabalharemospara 
queftque ainda melhor, pois faremos de 85 o ano do usudrio, do 
leitor. Iremos reestruturar algumas secdes e servicos e procuraremos 
agilizar nosso esquema de atendimento as duvidas. 

Para os que se desanimam per ante dez pdginas de uma (boa) 
listagem, aconselhamos umpouco de paciencia, pots es tamos 
preparando o MS Save, para diminuir os entraves da digitacao. Os 
que reclamaram a ausencia de nosso traditional fndice MSpodem 
estar tranquilos, pois vem aio Acesso Direto, um resumo completo 
destes tres anos de MICRO SISTEMASpor edicao, assunto e linha 
de equipamento. Outro servico, as Micro Fichas, sera bastante util 
para acabar de vez com os papiros-lembretes. Quant o aos cursos 
periodicamente apresentados por MS, estamos estudando ospedidos 
e a viabilidade de producao. Continuem a en via r sugestoes. 

Eisto. Neste mes historico, em que se inicia uma nova era para 
nosso pais, anunciamos, tambem para MS, um novo ciclo, cujo 
sucesso, de maneira identica, serdfuncao direta da participacao de 
todos. 
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ACOMPUMICRO 

JATEMO 
MICROENGENHO 2. 

A Compumicro e a unica empresa do Rio que comercializa 
exclusivamente micros para uso prof issional, em um amplo e confor- 
tavel escritorio. 

Com umaequipede vendas formada somente por proi 'issio- 
nais de informdtica, a Compumicro vem se destacanao como uma 
das maiores e mais hem preparadas empresas do setor. 

Isto se deve ao fato da Compumicro oferecer um atendimento 
altamente especializado, so comercializando equipamentos de qua- 
lidade comprovada. 

Como um sucesso puxa o outro, a Compumi- 
cro coloca a sua disposicao o Microengenho 2. 
O unico micro computaaor nacional totalmente 
compativel com APPLEUe americano. 

O Microengenho 2 gera caracteres em portu- 
gues maiusculos, min usculos e acen tuados a partir 
do teclado. Pode ter resolucao ardfica de 107.520 
pontos no video (dohro do APP LEU Plus). E ainda 
possihilita o uso de umaplaca de modem 127b A, 
operando em modo FULL-DUPLEX (ciranddo) e 
HALF-DUPLEX (MicroxMicro) suhstituindo o modem 
extemo convencional. 

Venha a Compumicro e comprove este su- 
cesso pessoalmente. 

Compumicro. O melhor em micro pelas 
melhores condigoes. 

SUCESSO 
PUXA SUCESSO. 






o 



INFORMATICA EMPRESARIAL LTDA. 



End. : Rua Sete de Setembro, 99 - 1 1 . ■ andar - Tel. : PABX (02 1 ) 224-7007 

CEP 20050 - Rio de Janeiro/RJ. 



MICRO SISTEMAS, marQo/85 




O sorteado deste m6s, que recebera uma assi- 
natura de urn ano de MICRO SISTEMAS, e 
Antonio Roberto Barrichallo, de Sao Paulo. 



'RESPOSTA AO GARIMPANDO... t 



Sou possuidor de um TK-85 com 16 K 
de memoria, assim como o leitor Ricardo 
Mendonca, que relatou sua experiencia na 
Secao Cartas de MS n° 34, na carta intitula- 
da "Garimpando bytes". Quero, se possi'vel, 
esclarecer a duvida do Ricardo: no que tange 
ao funcionamento interno do microcompu- 
tador, pouco sei, mas posso assegurar, toda- 
via, que o processador Z80 e um processa- 
dor de 8 bits, que permite o agrupamento de 
dois registradores internos de modo a for- 
mar uma palavra de 16 bits. 

Os 16 bits recebem as seguintes denomi- 
nates: A15 A14 A13A12 A11 A10A9A8 
A7 A6 A5 A4 A3 A2 A1 AO. Assim, o pro- 
cessador tern condicoes de acessar 65536 
(2 ou 64 K) bytes de mem6ria (ou posi- 
coes). Por6m, o Sistema Operacional dos 
micros da linha Sinclair seta o bit A15 (veja 
em MS n° 31 , pag. 42). Desta forma, o pro- 
cessador s6 pode acessar 32768 (2 XS ou 32 
K) posicdes de mem6ria. 

Por causa desta particularidade do Siste- 
ma Operacional da linha Sinclar, os numeros 
maiores que 32767 (2 15 -1) sab vistos pelo 
Sistema Operacional da seguinte forma: 
N-32768, porque quern define se um nume- 
ro e maior ou menor que 32767 6 o bit A15. 
Se ele nao for considerado, havera uma mera 
repeticao dos numeros de a 32767. E se der- 
mos um POKE no endereco 57344, como o 
leitor Ricardo Mendonca fez, estaremos, na 
realidade, dando um POKE no endereco 
24577. 

Para chegar a esta conclusao usei os co- 
mandos B, E e M do MICRO BUG, e pesqui- 
sei os enderecos de 32757 ate 32767 e os 
enderecos de 65525 art 65535. 
O resultadofoi: 
32757 48 65525 48 
32758 A6 65526 A6 
32759 OD 65527 OD 

e assim sucessivamente. Podemos reparar 
que o endereco da esquerda 6 igual ao da 
direita, diminuindo-se 32768. Se pegarmos, 
por exemplo, os dois ultimos numeros que 
pesquisei (32767 3E e 65535 3E) e transfor- 
m$-los em bmario, teremos: 
32767=0111 1111 1111 1111 
65535= 1111 1111 1111 1111 

A unica diferenca entre os dois numeros 
binarios eo bit mais significativo (A 15). 

Ainda usando o MICRO BUG, criei a li- 
nha 1 REM com 99 caracteres e entrei com 
a dica "Surpresa na tela" (Secao Dicas de 
MS n° 34), s6 que nao usei o endereco 
1 651 4, mas sim o endereco 49282 ( 1 651 4+ 
32768). Depois retornei ao BASIC, testei a 
rotina com RAND USR 16514 e ela funcio- 
nou perfeitamente. Tentei acessar a rotina 
atravSs de RAND USR 49282 mas nao 
funcionou, dando notacao 0/0. que deve 
ter acontecido com o leitor Ricardo e que 
provavelmente ele utilizou um programa 
BASIC para fazer a constatacao citada na 
carta e, por sorte ou azar (nao sei), isto nao 
interferiu no programa. 
Gilberto F. da Silva 
Sao Bernardo do Campo-SP 



Agradecemos a vocA, Gilberto, e tambem 
a diversos leitores que nos escreveram expli- 
cando o que realmente ocorreu com o micro 
do Ricardo. 



CON VERSA 

DE PROGRAMADORES 



Recebemos em nossa redacao a colabo- 
rapao espontanea do nosso amigo leitor Bel- 
miro, em que este faz alguns comentarios 
ironicos sob re o programa "PI L, a fertilida- 
de programada", publicado em MS n? 31, 
pag. 32. 

Dizem que \& aconteceu (sobre o progra- 
ma Pil, de Armando Oscar e Maria Beatriz 
Cavanha): 

Um programador encontra-se com seu 
amigo, que vinha usando o PI L desde o casa- 
mento. 

— OI3, como vai? Puxa, hi quanto tempo a 
gente nao se ve, caral Quern 6 esse menini- 
nho? 

— Eo meu ET2. 

— ET2?I 

— E\.. Erro de Tabela 2. Aconteceu num es- 
paco de sete anos. Meu ET1 ja" vai fazer nove 
anos: ocorreu no segundo ano de aplicacao. 
Depois eu melhorei a performance. 

— Entao, daqui a uns 12 anos sai o ET3. 

— Pra 1 mim chega. Ja mudei a t6cnica. Aban- 
donei o "software" e apliquei o "hardware". 

— O COMPUTADOR... cara?l 

— O bisturitex. 

Belmiro F. da Silva 
Rio de Janeiro — RJ 



I CHING NO CP-300 



Na revista MS n° 26, foi publicado o 
programa / CHING, mas quando fui rod£-lo 
no meu CP-300, deu erro nas linhas 130, 
140, 150 e 160: toda vez que pressionava 
RUN dava erro nestas linhas. Um outro pro- 
blema ocorre nas linhas 465 a 475, com a 
mensagem de erro: "subscrito fora de fai- 
xa" na linha 475. O valor de G na vari^vel 
J$, na linha 475, fica entre 500 e 600. E o 
erro que esta acontecendo nas linhas 130, 
140, 150 e 160 6 um erro de sintaxe, pois o 
BASIC sem Disco nSb aceita a instruca"o: 

NL MID4<D$,L,i)="i " 
que deve ser mudada para: 

NL K$=MIDS<D*,L,i):K$="i " 

Gostaria que MS entrasse em contato 
com o autor para a solucSb dos problemas 
citados, ou seja, modificar as linhas 130, 
140, 150, 160, 370, 385, 390, 400, 410 e 
420, permitindo que mesmo quern nao te- 
nha disco possa desf rutar do / CHING. 
Gerson Petrucelli Filho 
Sao Carios-SP 

Remetemos a sua carta para o nosso 
amigo Luiz Gonzaga de Alvarenga, autor do 
programa / CHING, e eis a resposta que re- 
cebemos: 

"Realmente o CP-300 nao aceita a atri- 
buipao direta da funcao string Ml D$, pois 
esta e exclusiva do BASIC Disco. 

O valor de G que voce encontrou 6 igual 
a 517, e e decorrente da atribuicao de varia- 
vel ocorrida na linha 40, com decrementos 
de 64 em 64, nas linhas 130, 140, 150 e 
160. A mod if icacao apresentada em sua car- 
ta na*o e suf iciente. O que ocorreu e que, na 



linha 440, nSo foi encontrada a string H$- 
T$ (comparacao feita na linha 445) para 
que fosse feita uma nova atribuicao de varia- 
vel, onde G tomasse o valor de A (que seria, 
no maximo, igual a 8). Naturalmente, o 
valor de G na linha 475 manteve o seu ulti- 
mo valor, o que acarretou erro de dimensio- 
namento. 

Apresento, a seguir, as modificacoes que 
se podem efetuar para que o programa rode 
no CP-300: 



102 K*<L)»MID»<0S.L 


,1> 


105 IFK*(L)-"1" ... 




110 IFK»(L>»"2" ... 




115 IFKS(L>-"3" ... 




120 IFK*<L>-"4" ... 




130 K*<L>-"1" ... 


...IFD6THEN168ELSE102 


140 K*<L>-~0" ... 


. . . IFL >6THEN168ELSE102 


150 KS<L>-"1" ... 


. . . IFL >6THEN1 68ELSE 1 0? 


140 KS(L)»"0" ... 


... IFL >6THEN168ELSE102 


165 B0T0102 




168 F0RU0-1T06SAF»= 


»FS*KS<U0>:NEXT 


169 DS-AFS 




367 F*<K)-HIDS<TS,K 


1) 


370 IFFS<K)-"1" ... 




375 !FFKK>«~2" ... 




3B0 IFF*<K>-"3" ... 




3B5 IFFS<K)-"4" ... 




390 F*<K)-"1" ... 


...ELSE367 


400 F*<K)-"0" ... 


...ELSE367 


410 FS(K>»"0" ... 


...ELSE367 


420 FS<K>""1" ... 


...ELSE367 


432 F0RUQ»lT06iFA4»FA**Ff <ua> :NEXT 


433 T*=FA* 





Luiz Gonzaga de Alvarenga 

Goiania-GO 



CONTROLE DE 
CARGASELE"TRICAS 



Na revista nP 20, de maio de 1983, foi 
publicado um artigo que me interessou: 
"TK e NE no Controlede Cargas El^tricas". 
Sendo possuidor de um TK82-C (versao no- 
va), estudei e montei o circuito, por6m este 
na"o funcionou como o previsto. 

Ap6s ligar a interface no micro, ocorria 
o seguinte: ao digitar o programa tudo fica- 
va estaVel e, logo depois, ao introduzira va- 
ri^vel A, a safda oscilava como se, de repen- 
te, rapidamente, muitos enderecos tivessem 
sido liberados. Em seguida, porem, ficava 
estavel mas sempre com o mesmo endereco. 
Depois disso, cada toque do teclado corres- 
pondia a uma mudanga para F(H) nos bits 
menos signif icativos do endereco. 

Para facilitar a visualizacao das sai'das. 
liguei um CI-9368 ao CI -821 2 e um display 
FND-560. Usei tambem, para seguranca no 
funcionamento da interface, uma fonte de 
alimentacao usando o CI-7805 e, logicamen- 
te, interliguei o terra como o do micro, mas 
a situacao nao mudou. 

Ficaria muito grato se o autor fosse con- 
sultado para dar o seu parecer com relacao 
ao ocorrido: aconteceu alguma errata na 
materia ou o circuito s6 funciona em outro 
micro? 
Milton Vilela 
Sao Paulo - SP 

Remetemos a sua carta, Eng. Milton, pa- 
ra o nosso amigo e autor do artigo, Jerre Pal- 
meira Salles. Ele respondeu o seguinte: 

"Esta questao 6 sui gineris. Ate agora 
nao havia aparecido nenhuma carta com este 
problema. Na minha opiniao, s6 existe uma 
possibilidade para o ocorrido: o barramento 
de dados e compartilhado com outras ativi- 
dades do microprocessador, ou seja, durante 
um certo tempo ele recebe sinal, em seguida 
transmite sinal e depois refresca a mem6ria. 
Se durante os perfodos em que o micropro- 
cessador esta enviando sinais outra fonte 
tambem est iver usando este barramento, ha- 
vera um conflito de informacoes e aparecera 
o que vooS viu na tela. 



C0MPUMICR0 

Nos dominamos esta tecnologia. 



Microprocessador INTEL 
8088 (16 BITS) 




nexus 



So quem domina esta tecnologia pode oferecer o que 

ha de melhor em 16 Bits 



CPU'S Standard 256 K 
Drives 5 Va DFDD (360 K) 
Winchester de 5 e 10 MB 
Monitores cromaticos/mono 
Co-processador 8087 
Expansoes de memoria 
Todos os modelos de 
impressora 



Emulagao de terminals / RJE 

Comunicagao micro x 

mainframe 

Sistemas multiusuario 

Conversores de protocolo 

Redes locais 

Software nacional 

e estrangeiro 
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^ enda, o^es corn °P^° uS A600 



Alem disso, aCompumicro oferececom exclusividade 
o dispositivo 8088 processor card que permite operar 
software da linha PC em micros da linha Apple. 



revert 
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INFORMATICAEMPRESARIALLTDA. 

Rua Sete de Setembro, 99 - 115 andar 
Tels: PBX (021) 224-7307 - 224-7007 - RJ 



Esta dupiicidade de informacao poderia 
ser: 

1 — Curto-circuito entre Of pinos do conec- 
tor que voce usou e a salda de expansao do 
TK. 

2 — Defeito no 8212 e ele esta curto-circui- 
tando o barramento de dados ou o de ende- 

recos. 

Sugiro que voce confira as conexoes do 
item 1 e verifique se nao ha ligacao errada, 
tanto na fiacao da expansao quantodo 8212. 
A interface abordada em meu artigo funcio- 
na em qualquer micro da linha Sinclair (o 
meu equipamento e um NEZ-8000). E as in- 
formacoes divulged as na revista estao corre- 
tas." 

Jerre Palmeira Salles 
Crato - CE 
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Confesso que foi atraves de MICRO SIS- 
TEMAS que me apaixonei pelos micros. De- 
sejo tambem confessar a minha personalida- 
de voluvel, ja que antes de por os olhos nes- 
ta revista, eu era um grande admirador dos 
grandes sistemas, pois sou um aspirante a 
programador COBOL. Mas pouco a pouco 
me deixei levar pela graga, rapidez e simpli- 
cidade do BASIC e dos micros. E esta revista 
me possibilitou conhecer e me aproximar 
desta minha nova paixao. Creio que como 
leitor de outras publicacoes do generq posso 
dizer que MICRO SISTEMAS 6 a melhor re- 
vista sobre Informatica deste pals: voces es- 
tao de parabdns. 

Mas, como cedo ou tarde um pouco da,- 
quela arrebatadora emocao do primeiro en- 
contro passa e nos deixa raciocinar melhor. 



me vejo agora no direito (que alias, nao sei 
de onde tirei) de fazer algumas reivindica- 
coes para dar um pouco mais de colorido a 
este meu namoro: se for possi'vel, publiquem 
mais cursos de programacao (FORTH, 
MUMPS, Pascal...), pois 6 a melhor forma de 
podermos seguir a rapida evolucao da comu- 
nicacao programadores-sistemas. 

Peco tamMm mais programas voltados 
para a area de calculos e problemas serios 
(com respectivos f luxogramas) e, quern sabe, 
uma secaozinha de hardware, mesmo que 
pequenina. Isto porque sou tambdm apaixo- 
nado (que voluvel, nao?) pela eletronica. 

Bern, desde \a os meus agradecimentos a 
voces e podem ter certeza que o meu namo- 
ro. e o dos meus companheiros leitores, esta- 
ri sempre aceso enquanto pudermos ver nas 
bancas a nossa MICRO SISTEMAS. 
Marcos A. Pires 
Mogi das Cruzes — SP 

Otimo, Marcos. Aqui todo mundo ga- 
mou por sua carta: ganta como voce nos da 
uma alegria especial por nosao trabalho. E 
quanto at suas sugestoes, estao todas anota- 
das. 



cuperado. 

Embora o reparo no GAT possa ser feito 
usando os recursos do SUPERZAP, o mais 
pratico e seguro sera a gravacao do programa 
recuperado em outro disquete. O programa 
podera tamb6m, eventuaimente, ser regrava- 
do no disquete-teste, desde que se tome cui- 
dado de digitar o nome do programa e a ex- 
tensao de forma identica as originais. 

Bastante recomendavel para quern quiser 
se aprofundar no assunto a leitura do livro 
'TRS-80 Disk and other mysteries", de Har- 
vard C. Pennington. 
Antonio Roberto Barrichello 
Piracicaba - SP 



Agradacemos a atencao, voc6 esta corre- 
to, realmente houve esta falha no texto, se 
bem que o DIRCHECK continuaria a apre- 
sentar o problema. Com relacao a sugestao 
para consertar esta falha, o autor, Renato 
Degiovani, discord a da solucao apresentada, 
pois, segundo ele, com a monitoracao do 
DIRCHECK o uso do SUPERZAP torna-se 
bastante seguro. 
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Otimo o artigo "O NEWDOS que na"o es- 
ta nos manuais", subscrito por Renato De- 
giovani, publicado em MS nP 31. Apenas a 
ti'tulo de informacao, o autor na parte de 
Manipulacao dos Dadps do Diretorio nao 
menciona a reparacao do GAT. Nao obede- 
cida esta provid§ncia, na pr6xima gravacao 
de programas no disquete podera haver su- 
perposicao dasastrosa sobre o programa re- 
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MICRO SISTEMAS. 
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ASSINE HOJE MESMO E RECEBA GRATUITA 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTI R 
DO N9 13. PREENCHA O CUPOM ABAIXO (OU 
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para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 - Tels.: (021 ) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, Sao Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 
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A Compumicro 

vai deixar voce 

com a melhor 

impressao 

doUnitronAPII 



Nao existe nada mais 
pessoal do que uma impressao 
digital. Ela e unica. Ninguem 
tern igual. O mesmo acontece 
quando voce compra o seu 
UNITRON AP II na 
COMPUMICRO. 

Aqui voce tern um atendi- 
mento personalizado e exclusivo. 

O que este atendimento 
tern de exclusivo? E que na 
COMPUMICRO voce tern todas 
as informacoes do produto 
antes mesmo da compra. Ou 
seja, nossa equipe de analistas, 
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LTnitn >n acessand( > mais de 300 1 iana « 
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todos de nivel superior, estu- 
da o seu caso e indica-lhe a 
melhor configura^ao para as 
suas necessidades. Se voce nao 
puder vir ao nosso escritorio, 
onde sera recebido com todo 
conforto e tera a sua disposi- 
gao um analista com todo o 
tempo disponivel para 
mostrar-lhe o produto, nos ire- 
mos ate voce. E apos a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tencia tecnica, etc... 

E sabe quanto voce paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por voce. 

Pessoalmente. 
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Com a abertura do mundo do teleprocessamento ao usuario 

de sistemas pessoais, tornarse indispensavel 

saber como se processa a comunicagao entre os micros 



A viagem dos dados 



Roberto Quito de Sant'Anna. 



Sem duvida a grande coqueluche 
do momento — uma vez assenta- 
da a poeira causada pela intro- 
du?ao dos micros pessoais no 
Brasil -da transmissao de dados ou co- 
municacSo entre maquinas. Isto pode 
ser comprovado pela consolida9Sb do 
Projeto Ciranda, experiencia pioneira da 
Embratel, pela implantacSo do Ciran- 
dao, da mesma Embratel, do Videotexto 
da Telesp, e da proliferacjfo dos CBBS 
(Computer Bulletin Board Systems). 
Este artigo pretende dar ao leitor uma 
visao geral e simplificada, tanto quanto 
o permitir a alta complexidade da tecno- 
logia envolvida, de todo o mecanismo 
atraves do qual os dados oriundos do 
seu micro ou terminal podem atingir o 
que quer que esteja conectado na outra 
extremidade da sua linha telefonica. 

As redes de comunicacSo de dados ja" 
sao usadas hi muitos anos nos sistemas 
de grande porte, tais como os que aten- 
dem aos grandes bancos, empresas de 
aviacjio e 6rgaos do Governo, entre ou- 
tros, sendo que, em termos de compu- 
ta?ao pessoal foi mais uma vez, o Proje- 
to Ciranda o responsavel pelo initio de 
sua difusSo entre nos. As vantagens da 
comumca5ao de dados sao muito nume- 
rosas e dentre elas destacamos: 

• acesso de um numero muito maior de 
pessoas aos sistemas de Processamento 
de Dados; 

• reducjlo acentuada dos erros de trans- 
cuoao e de entrada de dados, uma vez 
que estes sao coletados, ja" em forma le- 
givel pela maquina, nos pr6prios pontos 
de origem da informacSo — lojas, postos 
de gasolina, bancos, etc.; 
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REQUISITOS COMUNS A TODOS OS SERVICOS DE COMUNICACAO DE DADOS: 






. DISPONIBILIDADE DO SISTEMA. QUANDO SOLICITADO 






. CONFIABILIDADE NA TRANSMISSAO 








. PROTECAO PRENTE A ERKOS 








. SEGURANCA NA 


COMUNICACAO 









Figura J - Servigos de comunicagao de dados. Fonte: BARRADAS, O. e RIBEIRO, 
Marcelo P., Sistemas anal6gicos-digitais, Rio de Janeiro, ETC, 1980, p 989-990. 



• coleta e disseminac^o imediata da 
informa9ao, a velocidade eletronica. Por 
exemplo, em um banco eletronico, o 
saldo da conta do cliente e atualizado 
instantaneamente ap6s cada transac^o, 
ficando imediatamente disponi'vel a to- 
das as agencias do pais, tornando o 
cliente um cliente de todo o banco e 
nao de uma unica agenda; 

• reduc,ao dos custos operacionais, 
atrave's de centraliza9ao do processa- 
mento; 

• maior seguran9a — nos grandes siste- 
mas existem sempre dois ou mais compu- 



tadores em localiza9oes diferentcs, um 
deles em reserva (stand-by) e em condi- 
96es de assumir instantaneamente o 
processamento. 

As aplica95es da comunica9fo de da- 
dos sao, tambdm, muito variadas, e os 
servi90s mais importantes sa"o sumariza- 
dos na Figura 1. Para tais aplica95es 
existem dois tipos bisicos de liga9(5es a 
serem estabelecidas: o primeiro, chama- 
do em-linha (on-line) e aquele no qual a 
informa9ao 6 trocada diretamente com 
o computador, tipicamente em uma 
aplica9ao de consulta realizada por um 
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Figura 2 - Modelo de um sistema generico de comunicacoes. 
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Figura 3 - Modelo de um sistema de comunicagao de dados (ETD= Equipamento 
terminal de dados; ECD-Equipamento de comunicagao de dados). 



terminal de caixa bancano ou de balcSo 
de reserva de passagens; o segundo, 
chamado fora-de-linha (off-line), 6 aque- 
le em que as informa9(5es sao "estoca- 
das" temporariamente em um dispositi- 
vo qualquer de memoria para serem 
posteriormente processadas pelo compu- 
tador, tipicamente a entrada de progra- 
ma remoto ou o processamento remoto 
por lotes. 

ESTABELECIMENTO 

DE UM MODELO DE SISTEMA 

DE COMUNICACOES 

Para melhor situar o leitor, nosso 
passo inicial sera estabelecer um modelo 
que nos permitira" acompanhar todo o 
processo da comunica9So, da origem ou 
fonte ao destino ou destinatano (ver 
Figura 2). 

objetivo de qualquer sistema de co- 
munica95es 6 o transporte da informa- 
9ao ou mensagem, em forma tSo Fiel 
quanto possi'vel, entre a fonte e o destina- 
tario. Como a fonte e o destinata"rio 
podem estar a grande distancia um do 
outro, 6 necess^rio que haja um canal, 
encarregado do transporte propriamente 
dito da mensagem, atraves de um meio, 
evidentemente com alguma perda de 
intensidade (atenuacao), altcra<;a"o de 
suas caracteristicas (distorcao) e acresci- 
mo de componentes na"o existentes na 
mensagem original (rufdo, representado 
na Figura como uma fonte geradora ex- 
terna). emissor encarrega-se de colo- 
car a mensagem em uma forma apropria- 
da a transmissao pelo meio, atraves de 
um processo chamado modulacao. alem 
de prover a necess^ria energia para com- 
pensar as perdas durante o trajeto. Por 
outro lado, o receptor retira a energia 
do meio e recupera a mensagem (demo- 
dula9ao). Como, via de regra, a natureza 
da informa95o gerada pela fonte nao 6 
adequada ao acionamento do canal, sur- 
ge a necessidade de mais dois elementos, 
que completar5o o nosso modelo: o 
codificador, que pode dar a mensagem 
uma forma totalmente diversa, pordm a 
ela inequivocamente relacionada — a le- 
tra A, por exemplo, poderia ser transfor- 
mada no c6digo 1 1000 - e o decodifica- 
dor, no outro extremo do canal, encar- 
regado de reconstituir a informa9a"o. 

No caso particular da comunica9So 
de dados, o sistema de comunicacoes 
pode ser mais apropriadamente descrito 
pelo modelo da Figura 3. Nela, os blo- 
cos ETD (Equipamento Terminal de 
Dados) representam a fonte e o destina- 
tdrio, que podem ser dois computadores 
ou um terminal e um computador. Os 
blocos ECD (Equipamento de Comuni- 
ca9ao de Dados), por sua vez, represen- 
tam todo o equipamento necessano a 
adequa9ao do sinal ao meio de transmis- 
sao e vice-versa, realizando as fun95es 
do codificador/emissor e do receptor/ 
decodificador. 
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Figura 4 - Transmissdo paralela. 

TIPOS DE TRANSMISSAO 

Existem dois modos bSsicos segundo 
os quais os dados podem ser transmiti- 
dos entre dois pontos: o serial e o para- 
lelo. Imaginemos a transmissSo de 1 
byte (8 bits) * 1 entre urn regjstro de 
origem e outro de destino (ver Figura 
4). Se ligarmos cada um dos bits do re- 
gistro de origem ao bit correspondente 
do registro de destino, avisarmos ao re- 
gistro de destino, de alguma forma, que 
os dados estao prontos no registro de 
origem, e permitirmos ao registro de 
destino aceitar esses dados, teremos uma 
transferencia simultanea de todos os 
bits, o que caracteriza uma transmissSo 
paralela. Se, por outro lado, tivermos 
um linico fio ligando os dois registros e 



I. Nota do autor - Um bit i igualaum digi- 
to bindrio, isto e, a menor unidade de infor- 
macao existente em um sistema de compu- 
tacao: pode assumir, a cada instant e, apenas 
um entre dois valor es possfveis, e I. 



permitirmos que os bits passem um de 
cada vez, em seqiiencia, rumo ao regis- 
tro de destino , teremos uma transmissSo 
serial. Na Figura 5, os bits 1, 2 e 3 jS 
atingiram o destino, o bit 4 esta a cami- 
nho, e os bits 5, 6, 7 e 8 aguardam, ain- 
da na origem, a sua vez. Evidentemente, 
a transmissao paralela e muito mais ra- 
pida mas, em compensacjio, a serial e 
muito mais barata, por necessitar de 
apenas uma linha de dados - mais uma 
vez o eterno compromisso da Engenha- 
ria: economizar tempo ou dinheiro? De 
modo geral, o problema e resolvido 
assim: no interior do computador, no 
movimento de dados entre registros da 
UCP ou entre UCP e memdria, onde a 
velocidade e fator fundamental e as dis- 
tSncias sao curtissimas, a transmissSo e 
paralela; ja" a comunicacSo entre um 
computador e um terminal e serial, pois, 
aldm da economia da interconexSo, os 
dados, mesmo transmitidos serialmente, 
se deslocam com velocidade muito 
maior que a de leitura ou de digitacSo. 
Resumindo, praticamente toda a trans- 
missao de dados externa ao computador 
e feita de modo serial. £ evidente que, 
em qualquer caso, todos os caracteres 
devem ter o mesmo tamanho.ou seja, o 
mesmo niimero de bits. Mais adiante 
falaremos nos c6digos usados na trans- 
missao de dados. 

A transmissao serial pode ser feita, 
ainda, de duas formas: smcrona e assih- 
crona. Na forma smcrona, os caracteres 
sao transmitidos em um fluxo conti'nuo, 
em um unico bloco, existindo uma per- 
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Figura 5 - Transmissao serial. 
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Figura 6 - Exemplos de transmissdo dos caracteres A e B no modo sincrono (6a) e 
no modo assincrono (6b), com 1 bit de parada e paridade impar. Note que as esca- 
las sao diferentes. 



feita sincroniza^ao entre o emissor e o 
receptor, de modo que este possa sem- 
pre saber o momento exato de "ler" um 
bit, o inicio e o termino de um carSter 
e o inicio e o termino da mensagem. O 
sincronismo pode ser obtido atraves da 
transmissao de um trem de pulsos de re- 
logio (clock) em uma linha separada (ver 
Figura 6) ou dotando-se o receptor de 
um clock estSvel, amarrado em pulsos 
de sicronismo transmitidos no ini'cio da 
mensagem. Note que os caracteres sao 
sempre transmitidos, no modo sincrono, 
sem qualquer intervalo entre eles, o que 
torna este modo impossivel de ser utili- 
zado na ligacSo entre um terminal e um 
computador: ninguem pode digitar tSo 
rapid am ente. Na transmissao assincrona, 
os caracteres podem ser transmitidos 
aleatoriamente no tempo , com qualquer 
intervalo entre eles, e sem limitacSo do 
tamanho da mensagem. Sempre que for 
necessario transmitir um carater, o emis- 
sor se encarrega de avisar ao receptor o 
inicio da transmissSo, atrave"s de um bit 
adicional (start bit ■ bit de partida, cor- 
respondente a uma interrupcSo do sinal 
na linha) precedendo o c6digo corres- 
pondente, e o fim da transmissao, 
atravds de um ou dois bits de parada 
(stop bits, correspondendo a condicSo 
de marca ou de repouso, isto e, existen- 
cia de sinal na linha) conforme mostra- 
do na Figura 6. Desta forma, o receptor 
pode relaxar, sabendo que serS sempre 
avisado da transmissao de um carater 
com a antecedencia suficiente para que 
possa, atraves de seu pr6prio clock, sin- 
cronizar seus circuitos para ler cada 
um dos bits no momento apropriado. A 
transmissao assincrona tern como princi- 
pal desvantagem em relagSo a smcrona 
uma mS utilizacSo do canal. Em com- 
pensa9ao, a transmissao sincrona, alem 
de muito mais dispendiosa em termos de 
equipamento, nao pode ser usada em 
muitos casos, como o mostrado acima pa- 
ra o terminal. Na liga?So que mais nos 
interessa, ou seja, entre um micro do- 
mestico ou professional e outro micro 
ou uma rede, a transmissSo sempre sera" 
serial e assincrona. 

O MEIO DE TRANSMISSAO 

Para que uma determinada informa- 
5§o possa ser transmitida entre dois 
pontos, a mesma tern que ser superposta 
a um sinal de natureza eletrica, que terS 
um ou mais de seus parametros altera- 
dos de acordo com a natureza da infor- 
macSo. Normalmente o sinal el&rico 
utilizado e* uma onda senoidal cuja am- 
plitude instantSnea 6 dada por x(t)= A 
cos (2) tt ft + 9 ), onde t e o tempo em 
segundos e A (amplitude), f (freqiiencia) 
e G (fase) sao os parametros que pode- 
mos fazer variar. Se variarmos o parame- 
tro desejado de forma continua, de 



sinal na entrada da linha 




sinal na saida da linha 



Figura 7 - Distorcdo do sinal digital em uma linlia telefonica. 



modo a constituir uma replica da infor- 
macao original, o sinal resultante sera" 
dito um sinal analogico; se, por outro 
lado, permitirmos que o parametro a ser 
variado assuma somente um certo niime- 
ro de valores, chamados de valores ou 
niveis discretos, estaremos em presence 
de um sinal digital. O caso mais conhe- 
cido de sinal digital, aquele que possui 
apenas dois niveis, e o sinal binSrio. Os 
sinais podem, ainda, ser submetidos a 
processos de codificacSo, com o resulta- 
do final diferindo completamente do 
sinal initial; o importante e que o con- 
teudo da informacSo se mantem inalte- 
rado e pode ser integralmente reconsti- 
tuido no destino. 

O processo segundo o qual alteramos 
um ou mais dos parametros de um sinal 
6 chamado modulacSo, e o sinal modifi- 
cado, que vai transportar a nossa infor- 
macSo ate o destino, e chamado de onda 
portadora. 

O meio de transmissao por excelencia 
para a transmissao de dados e o canal 
telefonico comum, acessi'vel atraves de 
um par de fios de nossa linha telefonica, 
projetada e instalada para a transmissSo 
de voz em forma anal6gica. 

A voz humana 6 um sinal complexo e 
a sua energia estS distribuida de modo 
nSo uniforme em uma faixa de freqiien- 
cias compreendida entre 15Hz e 15000 
Hz, aproximadamente, com a maior 
concentracSo ocorrendo entre 300Hz e 
3400Hz. Por questOes de economia, os 
canais de voz transmitem apenas essa 
faixa de freqiiencias, chamada de banda 
passante, largura de banda ou largura de 
faixa da linha (B= f a - f , =3 100 Hz). A 
banda passante 6 a principal caracteris- 
tica de um canal de voz, sendo a respon- 
sSvel pela velocidade mSxima de trans- 
missao, em bits por segundo (bps), do 
canal. Os canais telefonicos podem ser 
comutados (o destino e atingido atraves 
de uma rota escolhida ao acaso, em fun- 
5S0 das disponibilidades da rede telefo- 
nica, como em uma liga?So comum), ou 
privativos (dedicados, alugados), consti- 
tuindo uma ligacSo ponto-a-ponto, dis- 
ponivel ao usuario 24 horas por dia. A 
escolha entre comutada e privativa 
depende de uma se"rie de fatores, princi- 



palmente do volume de trSfego e, como 
regra geral, a linha privativa oferece me- 
lhor qualidade de transmissSo. Embora 
teoricamente muito maiores. as veloci- 
dades maximas de transmissSo obtidas 
em linhas telefonicas ficam, na prStica, 
limitadas a 9600 bps, em virtude de 
outras caracten'sticas restritivas, tais 
como a atenua^So.distor^So, rui'do, eco 
e estabilidade. O leitor mais curioso no 
assunto podera queimar pestanas duran- 
te muitas horas consultando a bibliogra- 
fia citada. 

O EMISSOR E O RECEPTOR 

JS vimos que as linhas telefonicas 
foram projetadas para transmitir fre- 
qiiencias de voz na faixa de 300-3400 
Hz, e que os sinais de voz sao sinais 
anal6gicos. Se injetarmos em uma linha 
telefonica os sinais binarios oriundos de 
nosso computador, o resultado na outra 
extremidade sera" o mostrado na Figura 
7: ao hive's de um sinal claro, de transi- 
c6es bem nitidas, obteremos um sinal 
distorcido, no qual as transi9des se 
mostram bem atenuadas, e que poderS 
ser mal interpretado pelo equipamento 
de recep?So, que terS eventualmente di- 
ficuldade de distinguir entre os niveis 
e 1 . A distor?So sera tanto maior quanto 
mais estreita for a banda passante da li- 
nha, pois a decomposicSo de um sinal 
binSrio nos mostra que nele estSo pre- 
sentes componentes de altissima fre- 
qiiencia, as quais serSo brutalmente ate- 
nuadas ao passarem pela linha, sendo 
virtualmente inexistentes na saida. 
Como seria economicamente inviavel 
aumentar a largura de banda das linhas 
telefonicas (elas chegaram primeiro, 
lembre-se), e jS que elas atendem perfei- 



tamente a finalidade para a qual foram 
projetadas. a S0IU9S0 mais inteligente e 
que foi a adotada e a de adaptar o sinal 
S linha, o que pode ser feito atraves de 
um modem. O modem, cujo nome 6 for- 
mado pela contragSo das palavras 
modulador e demodulador, e um 
equipamento bidirecional que, instalado 
nas duas extremidades de um canal de 
comunicacSo de dados, tern por fun?So 
adequar um sinal binSrio oriundo de um 
computador as caracten'sticas da linha 
(funcionando como emissor), e vice-versa 
(funcionando como receptor). Para a 
maioria dos efeitos praticos. modem e 
o proprio ECD da Figura 3. 

tipo mais comum de modem e o 
chamado modem analogico, atraves do 
qual os niveis binarios 1 e (tambem 
chamados de marca e espaco, respecti- 
vamente) sSo transformados em tons se- 
noidais puros, que vSo modular uma 
portadora senoidal cuja freqiiencia esta 
dentro da banda passante da linha tele- 
fonica, podendo, entSo, ser transmitida 
praticamente sem distor?So. Na extremi- 
dade de destino, um outro modem se 
encarrega de demodular esta portadora, 
extraindo da mesma os tons de marca e 
de espaco, que, apos reconvertidos em 
niveis binarios, serao entregues ao com- 
putador (ver Figura 8). Simples, nSo? 

Dado carater universal das redes de 
telecomunica9<3es, torna-se necessSria 
uma normaliza^ao ou padroniza?ao rigo- 
rosa dos equipamentos. Assim, a UniSo 
Internacional de Telecomunica^es 
(UIT), da qual Brasil e membro, atra- 
ves de seu Comite Consultivo Interna- 
cional de Telegrafia e Telefonia (CCITT) 
estabeleceu o chamado padrao CCITT 
de modems, tambem conhecido como 
padrao europeu, adotado pelo Brasil. 
Outros paises. liderados pelos Estados 
Unidos, utilizam o chamado padrao 
BELL, ou padrao americano, normali- 
zado pelo Bell System. 

As normas estabelecidas pelo CCITT 
dizem respeito, basicamente, Ss taxas 
(ou velocidades) de transmissSo da in- 
fo rmac^o, sendo as mais usuais as de 
150, 300, 600, 1200, 2400, 4800 e 
9600 bps, e aos tipos de modulacSo, 
normalmente em freqiiencia (FSK= Fre- 
quency Shift Keying = modulacSo por 
desvio de freqiiencia) ou em fase (PSK 
=Phase Shift Keying= modulacSo por 



sinal 
analogico 



sinal digital 

_TL 



MODULADOR 



VI 



DEMODULADOR 



sinal digital 

LTTiTJ" 



TRANSMISSAO 



Figura 8 - Modulacao e demodulagdo do sinal digital. 
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desvio de fase), este para velocidades 
acima de "1200 bps. Ainda um mesmo 
modem pode ter velocidades diferentes 
para transmissa"o e recep9a"o: o tipo uti- 
lizado para acesso ao Videotexto trans- 
mite a 75 bps e recebe a 1200 bps *2. 
No campo da computacao pessoal, con- 
tudo, a tendencia e adotar a comunica- 
9ao serial, assincrona, a 300 bps. Existe 
uma certa tendencia em confundir bps 
e baud como unidades de medida de 
velocidade de transmissao. A unidade 
baud, que recebe este nome em homena- 
gem a Baudot, um dos pioneiros daste- 
lecomunicagSes, e mais corretamente 
aplicada a medida de velocidade de 
transmissao de sinais telegraficos. Baud 
representa o numero de vezes que o 
estado da linha se modifica por segundo. 
Como, na maioria das aplica?0es de tele- 
processamento, a condicSo da linha e 
alterada exatamente pela presenca ou 
ausencia de sinal, o numero que mede a 
velocidade em bps 6 o mesmo que a que 
mede em baud, dai a confusao. Por via 
das duvidas, a melhor maneira de nunca 
errar 6 expressar a velocidade sempre em 
bps. 

Existe ainda um tipo de modem, co- 
nhecido como modem digital. A rigor 
este tipo nao deveria ser chamado de 
modem, uma vez que nao realiza a mo- 
dulacao/demodulac^o do sinal, e sim 
uma simples mudan9a na sua representa- 
?ao digital (codificac^o) e na representa- 
9S0 eletrica (forma do sinal), transfor- 
mando-o em um outro sinal digital, po- 
rem mais adequado <is condi?oes da li- 
nha. Embora seu alcance seja muito res- 
trito, na"o ultrapassando 300m, constitui 
uma solu9ao economica e aceitavel para, 
por exemplo, ligacOes dentro de um 
mesmo predio. Os modems digitals na"o 
sa"o normalizados pelo CCITT, na"o ha- 
vendo, portanto, compatibilidade entre 
os modelos dos diversos fabricantes. 

O alcance dos modems digitals dimi- 
nui conforme aumenta a velocidade de 
transmissao. Transmitindo a 300 bps, 
pode-se operar com um modem digital 
em distancia de ate 4.500m. J a" a 600 
bps, o alcance deste equipamento dimi- 
nui para 300 metros. Por suas caracteris- 
ticas, os modems digitais em geral sa"o 
bem mais baratos que os analogicos. 

Outro equipamento nao padroniza- 
do pelo CCITT e o acoplador acustico, 
dotado de um bocal emissor e outro re- 
ceptor nos quais o monofone do apare- 
lho telefonico e encaixado diretamente, 



• 2. Not a da redacdo - A variacdo entre as ve- 
locidades de recepcdo e emissdo de dados 
pode ser explicada uma vez que o numero de 
informacoes que o usudrio do sistema Video- 
texto deverd fornecer sdo poucas, jd que ele 
basicamente apenas escolhe as pdginas que 
quer acessar. Jd as informacoes provenientes 
do banco de dados sdo muitas, o que requer 
uma velocidade maior na transmissao. 
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Figura 9 - Mocios de ligacao. 

com toda a transferencia de informa?a"o 
ocorrendo pelo ar, sem qualquer ligaca"o 
eletrica com a rede telefonica. Alem de 
sujeitos a interferencias de rui'dos exter- 
nos. causados muitas vezes pelo fato do 
fone do aparelho telefonico na"o se adap- 
tar ao acoplador, sua velocidade de 
transmissao e relativamente baixa, na"o 
ultrapassando 300 bps. 

A ligacao entre os modems pode ser 
feita ainda de tres modos (ver Figura 
9): o modo simplex, sem utilidade prati- 
ca, pois permit e a comunicac^o apenas 
em um unico sentido; o modosemi-du- 
plex (half-duplex), que permite a liga9SO 
nos dois sentidos, porem na"o simulta- 
neamente; e finalmente, o modo duplex 
(full-duplex), permitindo a comunicacao 
simultanea nos dois sentidos, e que pode 
ser a dois fios (exatamente como o tele- 
fone a que estamos habituados, utili- 
zando um circuito hibrido ou um aco- 
plador direcional para separar os sinais 
emitido e recebido) ou a quatro fios, 
mais confidvel porem mais caro, por ne- 
cessitar de duas linhas separadas. 

O CODIFICADOR 
E O DECODIFICADOR 

Em nosso sistema de comunicasSo de 
dados as funcoes de codificacab e de 
decodifica93o sao normalizadas pela 
ELA - Electronic Industries Associa- 
tion, dos EUA, at raves do Padrao RS 
232-C, compati'vel com o CCITT, cuja 
realiza92o fisica e conhecida como inter- 
face padrao RS 232-C (o "C" significa a 
terceira versa"o) e que pode ser identifi- 
cada pela existencia, nos equipamentos 
que a contdm, de um conector padrao 
de 25 pinos, de forma trapezoidal. 

A interface padrao RS 232-C e a res- 
ponsdvel pela interconexao entre o ETD 
e o ECD, em forma bilateral, definindo 
as caracteristicas eletricas dos circuitos 
de transmissao e recep95o de dados, os 
seus niveis de tensao e os sinais de dados 
e de controle necess^rios. Na transmis- 



sao de dados, o estado 16gico 1 (marca) 
e definido como sendo uma tensa"o nega- 
tiva entre -15V e -25V, enquantoque 
o estado (espa9o) e definido como 
uma tensao positiva entre +15V e +25V, 
tudo referenciado ao "terra" ou "massa" 
(ponto comum) de sinal e com previsao 
de um queda de tensao de ±12V ao Ion- 
go das linhas de transmissao. Como os 
receptores sao obrigados a reconhecer 
sinais de no minimo ±3V, sobra uma 
margem de seguran9a (regiao de transi- 
9ao) de 6V entre os niveis 1 e 0, o que 
contribui para aumentar a imunidade a 
rui'dos e a diferen9as de potencial de 
massa. 

OS CODIGOS 

Um dos mais importantes passos para 
o desenvolvimento da comunicacao de 
dados foi a padroniza9ao dos codigos, 
visando a que os diversos equipamentos 
pudessem "falar" entre si. O primeiro 
esfor90 de padroniza9a"o data de 1963, 
atravfc do c6digo ASCII63 (ASCII e a 
sigla de American Standard Code for 
Information Interchange -, Codigo Pa- 
drao Americano para Intercambio de In- 
forma9ao), e a versao atual do c6digo 
ASCII, surgida em 1968, adotada em 
ambito mundial. Ver Figura 10. 

O codigo ASCII e um c6digo de de 7 
bits, possibilitando um total de 128 
(= 2 7 ) combina96es vaJidas. A esses 7 
bits e adicionado um oitavo bit, chama- 
do bit de pari da dc. com o objetivo de 
diminuir a incidencia de erros na trans- 
missao. Por exemplo, o bit de paridade 
podera" ser ou 1 conforme o numero 
de bits 1 do c6digo considerado seja par 
ou l'mpar - o receptor conta os bits 1 
de cada c6digo e, caso a contagem na"o 
seja um numero par (paridade par), 
envia um sinal ao emissor para que este 
transmita novamente o c6digo. E 
evidente que se.devido ao rui'do, houver 
a inversao de dois bits quaisquer, o erro 
nao podera ser detectado por este meto- 
do. Os bits adicionais introduzidos nos 
codigos. como o bit de paridade, na"o 
contem informa9ao. sendo chamados de 
redundantes. Quanto maior for a redun- 
dancia de um codigo, menor sera a efi- 
ciencia do canal, definida como o resul- 
tado da divisao do numero de bits de 
informa9ao (os bits uteis) pelo numero 
total de bits transmitidos. 

Outros c6digos normalmente usados 
em comunica9a"o de dados sa"o o Baudot 
(para teleimpressores) e o EBCDIC 
(Extended Binary Coded Decimal Inter- 
change Code), usado nos equipamentos 
IBM. 

Alem da mensagem propriamente 
dita, deve transitar pelo canal um cons- 
tante fluxo de informa95es entre as mi- 
quinas envolvidas na comunica9a"o. Esse 
fluxo de informa90es, que e" o response- 
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ACK 


SYN 
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BS 


CAN 
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EP 
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LF 


SUB 
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FF 
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i 
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1 
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RS 
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/ 
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DEL 



LEGENDA : 




CC 


NUL 


« 


all zeros 


VT = 


vertical tabulation 


SOH 


= 


start of heading 


FF = 


form feed 


STX 


at 


start of text 


CR = 


carriage return 


ETX 


a 


end of text 


SO = 


shift out 


EOT 


= 


end of transmission 


SI = 


shift in 


ENQ 


= 


enquiry 


DLE 


= data link escape 


ACK 


= 


acknowledgement 


DC 1 


= devide control 1 


BEL 


= 


bell or attention signal 


DC 2 


= devide control 2 


BS 


B 


back space 


DC 3 


= devide control 3 


HT 


= 


horizontal tabulation 


DC k 


= devide control k 


LF 


= 


line feed 


NAK 


- negative acknowle 



v^ 



CONTROLE 



INFORMACAO 
SYN = synchronous/IDLE 
ETB = end of transmitted block 
CAN = cancel (error in data) 
EH = end of medium 
SUB = start of special sequence 
ESC = escape 

FS = information file separator 
GS = information group separator 
RS = information record separator 
US = information unit separator 



Figura 10 - Codigo ASCII. Fonte: BARRADAS, O e RIBEIRO, Marcelo P., Sistemasanal6gicos-digitais./?/c> de Janeiro, LTC, 
1980, p 1049. 



vel pelo estabelecimento, manuten9a"o, 
controle e desconexSo da comunica9So, 
recebe o nome de protocolo (handsha- 
king, "aperto de maos"). As duas colu- 
nas da esquerda da Figura 10 mostram 
os caracteres de controle do c6digo 
ASCII, e seus significados constam da 
legenda. Remeto o leitor interessado, 
mais uma vez, a bibliografia especializa- 
da, para maior aprofundamento no 
assunto. 

CONCLUSAO 

Espero que este artigo tenha conse- 
guido satisfazer a curiosidade do leitor 
apenas curioso e que tenha fornecido 
aquele mais interessado, desejoso de 
maiores conhecimentos, o embasamento 
necessario a leitura dos papiros especia- 
lizados no assunto. 

Para finalizar, um lembrete: de nada 
adianta toda a parafernalia de equipa- 



mentos e tecnicas de comunica9ao de 
dados se nao dispusermos do software 
de comunicacao, indispensavel ao geren- 
ciamento de todo o processo e, por si 
s6, assunto para muitas e muitas pagi- 
nas. Por uma questao de fidelidade ao 
objetivo, que foi o de abordar apenas os 
aspectos tdcnicos da comunica9ao, a sua 
nao cita9ao no texto foi intencional. 
De qualquer modo, aqui, como em qual- 
quer outra aplica9ao, e o software que 
torna o computador em algo lit il — sem 
ele, o nosso computador na"o passara de 
um enfeite (?) de mesa ou mero peso de 
papel... 
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Eis as diferengas e algumas vantagens em se conjugar 

o verbo compilar, ao inves de interpretar, em se tratando 

de linguagem BASIC 



BASIC interpretado 
x compilado 



Marcel o Renato Rodrigues. 



Osistema completo de progra- 
macao BASIC deve traduzir 
as suas instni9oes BASIC em 
instructs que o microcom- 
putador entenda, ou seja, codigo-objeto. 
Os meios empregados para fazer essa 
conversao dependem do sistema BASIC 
que voce tem disponivel, normalmente 
o interpretador BASIC. 

O interpretador converte cada instru- 
cao para o c6digo-objeto, executando-a 
imediatamente ap6s a conversao. Isso 6 
feito toda a vez em que o programa e 
rodado. O compilador, por outro lado, 
converte todo o programa em codigo- 
objeto. Entao, voce terao seu programa 
sob duas formas: o programa-fonte, em 
BASIC, e o programa -objeto, em lingua- 
gem de maquina. Este ultimo, quando 
submetido, dispensara a conversao das 
instrucoes, atividade do interpretador. 
Para melhor entendimento desta anali- 
se, consideremos o BASIC da linha TRS 
80, modelo III e o compilador BASIC 
da Radio Shack, o RSBASIC. 

VANTAGENS DO COMPILADOR 

RSBASIC traduz o programa-fon- 
te numa linguagem intermediaria, isto e\ 
entre o BASIC e a linguagem de maqui- 
na. Entre as vantagens enumeradas pelo 
fabricante duas merecem atencao: s6 o 
autor do programa podera conhece-lo, 
pois e o unico dono do programa-fonte 
e a linguagem intermediaria e desconhe- 
cida; alem de sua economia de memoria 
e espaco em disco. 

A primeira tem importancia para o 
programador que pretende comercializar 
os seus aplicativos. A segunda vantagem 



e ofuscada pelo grande espa90 que o 
compilador ocupa na memoria. Mas a 
vantagem e absolutamente verdadeira 
com relacao aos arquivos em disco. 

usuario do compilador sera inicial- 
mente surpreendido, tanto pelo maior ri- 
gor sintatico das instrucoes - por exem- 
plo, observancia dos espa90s entre as 
palavras componentes das instru?5es -, 
quanto pelos produtos documentais do 
processo de compilacao, como a lista- 
gem comentada do programa, o mapa 
das variaveis e a listagem de referenda 
cruzada, na qual sao relacionadas as va- 
riaveis e as linhas do programa-fonte 
onde elas sao referenciadas (figura 1). 
Tais produtos sao familiares ao usuario 
que trabalhou ou trabalha com compu- 
tadores de maior porte. 

DIFEREN^AS DE LINGUAGEM 

Um aspecto importante a ser demons- 
trado e quanto as diferen9as de linguagem 
dos dois processos. A primeira delas e com 
rela9§o a maior precisao do BASIC com- 
pilado quanto a aloca9ao de espa90 na 
RAM, inexistindo a instru9§o CLEAR n, 
que executa a aloca9§o global de espa90 
para strings. Assim, a reserva de espa90 e 
feita variavel a variavel, atraves dasinstru- 
9oes DIM ou STRING. Nao haven do es- 
sa descri9ao, o compilador considerard 
o default de 255 bytes por variavel. 

Ainda com rela9ao a defini9ao de va- 
riaveis, outra diferen9a e o numero de 
di'gitos para o nome da variavel, que pas- 
sa de tres para seis, permitindo ter, por 
exemplo, duas variaveis distintas — SAL- 
DO 1 e SALD02 - impossivel no inter- 
pretador, que consideraria para os dois 



casos apenas a variavel SAL. E entre as 
instru96es que atribuem valores as varia- 
veis, ha tres diferen9as significativas. 

A primeira delas e uma varia9ao do 
RESTORE, que permite apontar a se- 
qiiencia DATA a partir da qual-nos inte- 
ressa restaurar, atraves do apontamento 
do numero da linha que a conte'm. Nao 
se fornecendo o numero da linha, a ins- 
tru9ao funciona exatamente da forma 
usual. 

A segunda e a instru9ao SWAP, que 
troca valores entre duas variaveis, muito 
empregada em reordena9oes. A terceira 
e ultima, a instru9§o INPUT, embora 
continue sendo de uso incomodo, foi 
aperfei9oada com formata9ao dos dados 
de entrada e e specif ica9ao do numero de 
di'gitos da variavel. 

SEGMENTACAO DE PROGRAMAS 

Entre os dois sistemas, existem dife- 
ren9as significativas, que certamente fa- 
rdo a cabega de usuarios mais exigentes. 
Por exemplo, sao disponiveis dois recur- 
sos poderosos voltados a segmenta9ao 
de programas durante a execu9§o : a trans- 
ferencia de controle para subprogramas 
e encadeamento de programas. 

Subprogramas sao sub-rotinas mais 
potentes que as usuais, pois trabalham 
com dados armazenados sob diferentes 
nomes de variaveis. Assim como as sub- 
rotinas comuns. os subprogramas sao 
chamados pelo programa principal e, 
apos sua execu9§o, retornam a ele. 
exercicio de sua aplica9ao revela as se- 
guintes vantagens em rela9ao a sub-roti- 
na convencional: 
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ver 2.3 EXEMPLO/BAS 

19:18:17 PAGE 1 

00010 REM +PROGRAMA EXEMPLO COM UTILIZACAO* 
00020 REM * DO COMPILER BASIC * 
00030 REM * PROGRAMA SOLICITA NOME- * 
00040 REM * E SOBRENOME * 

00050 DIM S0BRE*20 

SEU SOBRENOME""' 
: INPUT SOBRE* 



00060 PRINT "OUAL E" 
00070 PRINT CRT<2,0>;: 
00080 PRINT CRT (6,0)= 
00090 PRINT CRT'CO)?: 
OOlOri PRINT CRT (12,0): 
00110 END 
SYMBOLIC MEMORY MAP 
SCALARS 

00D6 NOME STRING*255 
CROSS REFERENCE LISTING 
SCALARS 

NOME 90 

SOBRE SO 70 

PINAL SUMMARY 

245 (OOFS) BYTES OF PROGRAM. 
276 (01 16) BYTES OF LOCAL "-. 
11 SOURCE LINES 
13 SOURCE STATEMENTS 
*** COMPILATION COMPLETE +■ • • 



'DUAL E' SEU NOME""' 
INPUT NOME* 
"OBRIGADO, ": NOME*; 



SOBRE*? 



30D0 



30F:RE 



STRING*20 



100 



Figura 1 

• subprograma nao 6 chamado pelo 
numero da linha. mas pelo nome; 

• Os dados transferidos ao subprogra- 
ma nao necessitam de adequa9ao quanto 
ao nome das variaveis; basta apenas exis- 
tir compatibilidade entre elas, pois o 
mesmo dado tera um nome no programa 
principal e outro no subprograma; 

• Pode-se transferir matrizes ao subpro- 
grama. 

subprograma e compilado com o 
programa principal, sendo integrante de- 
le, disputando espa90 na RAM, mas adi- 
cionando incn'vel flexibilidade a seus 
programas. 

Si o encadeamento de programas 
(CHAIN) executa a segmenta9ao sem a 
ocupa9§o simultanea de espa90 na RAM. 
£ um metodo de dividir um programa 
muito grande em outros menores e menos 
complexos, sendo cada um deles carrega- 
do na memoria e executado separada- 
mente, embora trocando dados comuns. 

ENTRADA/SAI'DA PARA 
TECLADO E MONITOR DE VIDEO 

A formata9ao de dados para entrada/ 
saida 6 um grande avan90 e a saida via 




seqOencial 

EM DISCO 



monitor tem duas fun9oes especiais para 
posicionamento do cursor. A fur^ao CRT 
move o cursor para uma especiTica loca- 
cao linha coluna e a fun9ao CRTR (x,y) 
move o cursor x linhas e y coiunas, a 
partir da posi9ao atual. fi o adeus ao 
PRINT @ . 

Sao acrescidas, ainda, fun9oes para 
localiza9§o da posi9ao do cursor CRTy 
e CRTx, que fazem retornar os valores 
da linha-coluna aonde se encontra o cur- 
sor, e uma fun9ao para leitura de area 
especificada no video. 

ENTRADA/SAI'DA PARA 
ARQUIVOS EM DISCO 

Diferen9as importantes sao observa- 
das na manipula9ao de arquivos em dis- 
co. Aldm de criar arquivos seqiienciais 
(figura 2) e randomicosou diretos (figura 
3), o RSBASIC elabora o arquivo ISAM 
(Indexed Sequential Acess Method), isto 
e, o arquivo seqiiencial indexado utili- 
zado pelos sistemas maiores, nos quais 
os registros sao alcan9ados por chaves de 
acesso e nao pelo numero de registro. 
Por exemplo, num arquivo de nomes e 
endere90s, a chave de acesso pode ser o 
sobrenome. Na leitura, os registros sao 
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apresentados segundo a classifica9ao, em 
ordem alfabe'tica, da chave de acesso, 
como no exemplo da figura 4, no qual a 
chave de acesso e a primeira letra do 
nome. 

De uma forma geral, a entrada/sai'da 
de arquivos pode ser string ou nume'rica, 
nao havendo necessidade de converter 
dados numericos em strings para gravar, 
e vice-versa, ap6s a leitura. A inexisten-. 
cia da instru9ao FIELD facilita tambe'm 
a leitura-grava9ao de vetores. Para entra- 
da/sai'da hi tres metodos: 

• Seriado — as virgulas separam os cam- 
pos dos registros; 

• Formatado - £ empregada imagem- 
padrao para controlar a disposi9ao dos 
campos; 

• Bin^rio - os dados numericos sao ar- 
quivados exatamente como estao na me- 
m6ria. 

Alem dessas, hi outras diferencas mais 
ou menos sutis em instru95es, fun95es e 
comandos que, se expostos, levariam a 
um tratamento mais aprofundado. Com 
rela9ao as facilidades de grande interesse, 
ha o RUNTIME, subsistema que apenas 
roda programas, ocupando menor espa- 
90 na memoria; o BEDIT, eficiente edi- 
tor BASIC; e o DEBUG, depurador de 
programas. 

Como se ve, hi numerosas vantagens 
com rela9ao aos recursos de linguagem, 
tornando o BASIC bem mais potente. 
Mas como no Brasil o emprego do BA- 
SIC compilado ainda e restrito, surgem 
problemas de disponibilidade de aplica- 
tivos no mercado e de incompatibilida- 
des, pois programas estruturados e desen- 
volvidos em BASIC compilado nao sao 
compati'veis com o BASIC interpretado 
e vice-versa. 
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Compartilhar recursos de custos elevados e informagoes 
produzidas por diversas estagoes sao algumas vantagens obtidas 
com o uso de redes locais 



Tern hora que precisa ser micro 



Redes locais 



Amaury Moraes Junior . 



Uma rede de computadores consiste em um certo nti- 
mero de computadores interligados por um sistema 
de comunicac^o. Dentro dessa filosofia, surgiu mais 
recentemente um tipo particular de rede, chamado 
Rede Local (Local Area Network - LAN). Nessas redes, as 
principals caracten'sticas sa"o a extensa"o geogrlfica, de no ma- 
ximo poucos quilometros; a alta taxa de transmissao, de 5 a 10 
Mb/segundo; e a ausencia de um processador central, isto 6, to- 
dos os elementos conectados £ rede possuem capacidade de 
processamento. 

Na medida em que as organizacoes (bancos, industrias, hos- 
pitais etc.) comecaram a possuir um maior niimero de compu- 
tadores, principalmente com o advento dos computadores de 
baixo custo, tornou-se necessdrio que estes equipamentos se 
interconectassem, para compartilhar recursos e informac^es. 

£ importante observar que embora o custo dos computado- 
res tenha diminuido constantemente, o preco dos equipamen- 
tos perifericos (discos, impressoras etc.) na"o acompanharam 
esta reducffo, e seu alto custo justifica o seu compartilhamento 
entre varios usuarios. 

Entre as vantagens na utilizacSo de uma rede local, pode- 
mos citar o aumento dos recursos fi'sicos (perife'ricos) dispo- 
niveis para cada estacao; maior integra^ao entre aplicacSes, 
atraves do compartilhamento de informacoes entre as diver- 
sas estacoes da rede; confiabilidade elevada, caracterizada pela 
inexistencia de um elemento centralizador (cuja falha compro- 
meteria o funcionamento global do sistema); baixo custo para 
pequenas configurates; e, por fim, o crescimento gradativo 
conforme as necessidades computacionais da organizacSb. 

EM TRCS NIVEIS 

Uma rede local pode ser implementada em tres diferentes 
niveis de tecnologia. mais elevado oferece maiores benefi- 
cios, tendo, em contrapartida um custo tambe'm elevado e im- 
plementac,ao mais dificil. Em resumo, os niveis de uma rede 
sao os seguintes: 

• Nivel 1 — objetivo neste estagio e' o de que varios usud- 
rios possam compartilhar perifericos como impressoras, plot- 
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ters, modems, equipamentos geralmente de pre90S elevados 
e que, utilizados por mais de uma estacao tern seu pre9o real di- 
vidido pelos departamentos. E devido ao baixo volume de sai- 
da desses dispositivos, na"o ha degrada9Sb do sistema. 

• Nivel 2 — Os meios de armazenamento de rnassa, normal- 
mente discos do tipo Winchester sa"o compartilhados pelos 
diversos usuarios do sistema. Pore'm, e necessario que a rede lo- 
cal tenha capacidade de transmitir dados em altas velocidades. 
O compartilhamento requer software de controle de acesso a 
esses arquivos, para que a integridade das informac^es seja 
mantida. 

• Nivel 3 — Neste nivel na"o se trata de compartilhar disposi- 
tivos fi'sicos, mas sim a informa9Sb existente no ambiente da 
rede local. Alem da capacidade de transmitir em altas veloci- 
dades, este nivel requer facilidade no acesso simultaneo a ar- 
quivos e possibilidade de bloquear registros (lock), todos im- 
portantes para que se possa compartilhar informa95es. Inte- 
gridade dos dados, processamento distribuido, eliminacao de 
redundancia de informacSes, possibilidade de consolidar da- 
dos produzidos por diferentes pessoas sa"o algumas das vanta- 
gens da implementa9ao deste nivel em rede local. 

FORMANDO A REDE 

Sa"o os seguintes os principals componentes de uma rede 
(Figura 1): 

• Unidade de interface, que pode ser uma placa ou um gabi- 
nete externo. Ela permite que o micro possa falar com a rede 
local, e as mais sofisticadas fazem todo o processo de comu- 
nica9«To, liberando o micro para outras tarefas. 
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Figura 1 




O Elppa II Plus e um micro compulador . 
S6 que lem macro vantagens. 
E (eilo quase artezanalmente. portanto teslado 
um a um 

E isso e uma macro quaiidade. 
Como e teiio com componentes de alta quaiidade. 
dentro dos melhores padr6es de Engenharia. a 
conliabilidade do Elppa II Plus e macro 
cuslo de manulencao e micro 1 o iinico com um ano 
de garaniia - macro quaiidade com macro garantia. 
ja com o preco acontece uma coisa mteressante, 
deveria ser macro, mas quando voce venlica o custo 
de uma conliguracao ve que e micro 
A assist enaa tecnica e macro - dlreta do fabricante 
ou at raves de seus credenciados, 
Ele e um Apple* compaKvel e dispoe de vasta gama 
de expansoes e peniericos a sua disposicao - 
CONTROLADOR OE DRIVE, CPrM, PAL-M, 80 
COLUNAS. SOFTSWITCH, 16K. 64K, 128K, GRAPH + , 
SUPER SERIAL CARD. SINTETIZADOR DE VOZ, 
MONITOR III, eic . - macro vantagem. 
• Sao Pau lo - Audio 282-3377 - ADP System 227 4433 ■ Bruno Bk>is223-701 1 



Tern hora que precisa ser macro. 

Conclusao: Seja para voce ou para sua empresa, 

micro ou macro, faca como a Rede Globo, a Rede 

Bandeirantes ou a Control que tern se utihzado do 

Elppa II Plus em suas necessidades empresa nais ou 

como os funcionanos do Bamenndus para suas 

atividades prolissianais e de lazer. 

Faca como tamos outros. que estao aproveilando as 

vantagens de um micro 




O micro macro. 



que sabe ser macro na 
nora ceria 

Escolha o Elppa II Plus 
a macro escolha. 



Macro^!^ 



MICRO SISTEM AS, mar<?o/85 



Fabnca: Rua Amibere n° 931 • S,P. Tel 864.0979 ■ 872.2134 
Snow Room Av. Sumare n*i 744 - S P Tel. 872.4788 
B M K 62-9 1 20 - Europlan 256-91 88 - Victor Show Room 872-4788 • Rio de Janeiro 
CML 285 6397 - Eteceeme201 3792- Formed 266-4722 - Sistema 253-0645 - SC Sistemas 232 8304 • fielo Horizonte - Sprees 225-8988 • Porto Alegre - Aplitec 
24 0465 DB Computadores 22-5136 - Embfamic 41-9760 • Vlt6ria - Metaldata 225-4700 - Soft Center 223-5147 • Brasilia - Compushow 273-2 128 ■ Curitfba 
- Videos Audio 234-0888 • Londrina Set In 23-6183 * Recife - NC Sistemas 228-01 60 - Tecromic 325-3363 • FJoria no polls - Micro Home 23-2283 • Sic Joe* 

Ao Rto Pfeto - Teledata 33-2714 • Fortdeu - Systematic 244-4746 



REDES LOCAIS 
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Figura 2 
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Figura 3 

• Cabo ffsico para conectar as esta?Qes a rede local. Os tipos 
comumente usados sa"o o par tranc^do, para pequenas distan- 
cias (ate* 300 metros) e o cabo coaxial de custo mais elevado, 
usado para grandes distancias. Com transmissao em banda ba- 
se este ultimo atinge 500 metros, enquanto que com a trans- 
missao em banda larga pode atingir ate - 50 quilometros. 

• Servidores, que normalmente gerenciam o compartilhamento 
de arquivos ou impressoras, podem estar residentes em uma 



Figura 4 

estacSb de trabalho ou em uma unidade dedicada para esse 

fim. 

• Gateways sao computadores, dedicados ou na"o, que permi- 

tem as esta9(5es a possibilidade de comunicaca"o com outras 

redes e servicos externos ao ambito da rede local. 

Topologia 6 a forma fisica de interconexSb dos elementos 
da rede. Hi tres tipos basicos para as redes locais. 

Na topologia em estrela (Figura 2) todos os n6s (ou esta- 
96es) sao ligados a um no central, atrave's do qual os dados 
passam. Neste tipo e comum o n6 central possuir maior capa- 
cidade de processamento, alem de concentrar os perife'ricos 
que sa"o compartilhados entre as outras esta9Ses. A rede em 
estrela apresenta sua maior deficiencia na confiabilidade, qual- 
quer falha no no central causa a parada total do sistema, 
alem de ser limitada em termos de expansSb, normalmente a 
oito estacGes. Seu desempenho tambe'm e determinado pela 
capacidade de processamento do no central. 

Uma rede organizada em anel e' composta de esta96es 
ligadas em serie (Figura 3),formando uma espe'cie de circulo. 
Normalmente, cada estafao 6 ligada a rede atrave's de uma 
interface especial, cuja responsabilidade 6 retransmits os 
dados que na"o se destinam aquela estaqSo, ler os dados desti- 
nados ao n6 e inserir dados. Devido ao fato de as redes em anel 



E INCRI VEL O QUE 

UM BOM PROGR AMA 

PODE FAZER. 



-o-o-o- 
-o-o — 



-o-o-o-o-o^ 



-c-eo-o-o-c-o-o-e- 
-*-o-o-o 



o-o-o-o-c- 

o 



-O-G-O-C-Q-O- 



-o-o-o-o-o-o-o-o-o-c- 



-c-o^-c-o-o-o-c-©- 



O abaco, para quem domina sua tecnica, permite a execucao de contas 

aritmeticas com incrivel velocidade. 

Da mesma forma, quem possui um microcomputador e um bom programa 

economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tern a sua disposicao mais de 50 programas como 

folha de pagamento, crediario, mala direta etc para aproveitar ao ma- 

ximo o que o seu microcomputador pode oferecer. 
Alem disso, a Nasajon Sistemas pode desenvolver programas especificos 
para a sua necessidade, seja ela qual for. 
Todos os nossos programas sao garantidos e atualizados. 
Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esclarecer quaiquer diivida que voce possa ter sobre infor- 
matica. 

E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, voce vera as coisas incriveis que ele pode fazer. 



nasajon 



Av. RioBranco, 45-S/1311 - RJ 

CEP: 20090 

Tels.: (021) 263-1241 e 233-0615 



Voce encontra os programas NASAJON tambem nos seguintes enderecos: 

Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 - R. 179 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1960 

Salvador Officina: 248-6666 - r. 268 Sao Paulo: Microprocess: 64-0468 - Jundiai SP- Apoio Com. Informatica Ltda: 51-3778 - Tatui - SP 



exigirem uma interface ativa para seu funcionamento, a con- 
fiabilidade da rede se reduz a confiabilidade das interfaces. A 
falha de quaiquer uma delas seccionara' o sistema. Na topolo- 
gia em anel tambe'm podem surgir problemas relacionados com 
falhas ou erros no processamento de mensagens. Por outro la- 
do, pode crescer ilimitadamente. Contudo e' importante lem- 
brar que cada interface introduzida no sistema provocara" um 
retardo adicional na rede e a degradacao pode se tornar indese- 
javel, se muitas interfaces estiverem presentes na rede. 

Na topologia em barra comum (BUS) os n6s compartilham 
o meio de transmissao atrave's de interfaces passivas, isto e, o 
funcionamento da rede na"o depende do funcionamento das 
interfaces. Uma vez que a barra 6 compartilhada por todos os 
n6s (Figura 4), o acesso a ela deve ser controlado, de forma 
centralizada ou distribui'da. No caso centralizado, a mensa- 
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Figura 5 

gem 6 transmitida por um determinado n6, que a retrans- 
mite para a esta9§o de destino. No modo de acesso descentra- 
lizado, cada n6 6 responsavel por realizar parte do controle. 
Quanto k confiabilidade, visto que a interface e' passiva, a 
topologia em barra comum oferece maior seguran9a, pois uma 
eventual falha em uma interface na"o afeta o funcionamento da 



Automacao: um caminho para as redes locais 



O processamento manual de 
rotinas administrativas estd 
irremediavelmente condenado 
na exata proporcdo em que a 
Informatica vat se tornando 
mais acesstvel. A automacao do 
escritdrio, seja simplesmente 
para consultas atrave's de termi- 
nals nao inteligentes, ou mesmo 
para a execucao de tarefas mais 
simples, como elaboracdo defo- 
Ihas de pagamento ou controle 
de caixa e estoques por interm4- 
dio de micros 4 apenas um passo 
para a total informatizacdo de 
procedimentos administrativos. 

Micros e minicomputadores, 
oferecidos em alguns casos c 
precos atraentes, tern levado 
empresdrios a tentarem a expe- 
riencia de automacao de suas fir- 
mas. A expansdo do numero de 
rndquinas deverd ser mais rdpida 
a partir do instante que a con- 
corrincia aumente, possibilitan- 
do a escolha dos equipamentos 
em maior variedade e precos 
mais vantajosos. 

Mas o processo de automa- 
cao deve obedecer a etapas, diz 
quem jd viveu a experlencia e 
que hoje se encontra na fase da 
rede local, como 4 o caso de 
Eraldo de Freitas Montenegro, 
assistente do chefe do Departa- 
mento de Treinamento da Em- 
bratel. Para as pequenas e m4- 
dias empresas a informatizacdo 
em escala menor 4 mais eficien- 
te, se analisado o mecanismo de 
custo /retor no. Rede local deve 
ser aspiracdo de quem fez um 
levantamento pormenorizado de 
suas necessidades e ati de acesso 
a importantes bases de dados. 

O processo de automacao de 
escritdrios, seja por intermedio 
de terminals de consulta ou pro- 
cessamento atrave's de um mi- 
cro, apresenta caracteristicas de 



aspecto psicologico junto ao 
quadro de funciondrios, como 
pdde observar Eraldo Montene- 
gro no infcio da implant acdo da 
Informdtica em seu departamen- 
to. Mediante um criterioso tra- 
balho, ele passou a observar o 
comportamento do pessoal da 
secdo 'onde seria implantado o 
sistema, para conhecer suas rea- 
coes em funcdo do novo sistema 
operacional. E constatou fatos 
que no minimo, sao curiosos. 

Por exemplo, ha via em parte 
dos funciondrios o temor do de- 
semprego proporcionado pela 
informatizacdo. Um receio gera- 
do, como ficou comprocado, 
apenas por questoes como ouvi 
dizer e pela falta de conheci- 
mento pelo menos superficial 
do significado real da automa- 
cao. 

Descobriu-se entdo que essa 
reacdo era fruto da visdo primd- 
ria a respeito do processamento 
eletronico, de que as rndquinas 
seriam ainda aquelas de grande 
porte, os chamados cerebros ele- 
tronicos, que por sua dimensdo 
transmitiam a falsa imagem do 
complexo, algo que s6 pudesse 
ser acessado por iniciados. 

Foi mostrado entdo a eles 
que a microeletronica jd possibi- 
litava a fabricacdo de rndquinas 
de pequeno porte, se nao huma- 
nas, pelo menos valorizando 
mais a relacdo usudrio/compu- 
tador. 

A automacao de um escritd- 
rio nao deve ser vista apenas 
como modemidade. Mas signifi- 
cando dinamizacdo dos traba- 
Ihos, eliminacdo dos feudos e 
ganhos em termos de produtivi- 
dade. Isso sem levar em consi- 
deracdo, em tarefas mais roti- 
neiras, aspectos importantes do 
tipo limpeza, correcdo e unifor- 



midade, como na corresponded 
cia, por exemplo. Esses fatores, 
no processamento manual, ds 
vezes sao confundidos com ca- 
pacidade profissional, o que nao 
deixa de ser uma avaliacdo sub- 
jetiva. 

Tambem foi levado em con- 
sideracdo, no exemplo especifi- 
co da Embratel, que a mo vim en - 
tacdo de pessoal durante firias 
ou licenca acarreta sempre pro- 
blemas de atraso devido d neces- 
sidade de transferencia de atri- 
butc6es e aprendizado do servi- 
co, o que fica eliminado no es- 
critdrio automatizado. Em resu- 
mo, o dominio das informacoes 
nao confidences 4 retirado das 
mdos de uns para ficar d disposi- 
cao de todos, quando preciso. 

Vale entdo ressaltar que a 
postura da empresa na hora de 
op tar pela automacao deve ser 
analisada apds a pesagem de 
todos esses aspectos. E a partir 
do porte de cada uma poderd ser 
escolhida a simples implantacdo 
de micro para processamento 
interno e com terminals para 
consultas, at 4 a utilizacdb do sis- 
tema rede local, menos simples, 
porim mais abrangente. 

REDES LOCAIS 

Para uma empresa que jd vive 
a fase do escritdrio automatiza- 
do, atraves de elevado numero 
de rndquinas espalhadas por seus 
departamentos, e cujo funcio- 
namento requer constante inter- 
cdmbio de informacoes entre 
um e outro. justifica-se a im- 
plantacdo da rede local. As roti- 
nas de trabalho, como passagem 
de memorandos de uma sessdo a 
outra, comunicados internos e 
alteracoes de rotinas se desen- 
volvem de forma mais harmo- 



niosa, eliminando-se a utilizacdo 
de papiis, e quando necessdrio 
seu emprego, isso pode serfeito 
por meio de impressoras. 

As redes locais permit em o 
compartilhamento economico 
de recursos dispendiosos como 
unidades perif&ricas e comportas 
para bancos e bases de dados 
externos, dividindo da mesma 
forma informacoes que ficam 
armazenadas apds consultas. 

No caso especifico da Em- 
bratel, a implantacdo da rede 
local foi feita com a utilizacdo 
de equipamento adquirido da 
Cetus InfOrmdtica, gerando uma 
rede para operar em seis depar- 
tamentos. Sua configuracdo bd- 
sica e a seguinte: oito postos de 
servico, um drive e uma impres- 
sora compartilhada: cada posto 
tern um micro e um nodo CS- 
1000, servindo de interface en-, 
tre a I in ha e a mdquina. Dos oito 
postos, um 4 operado por um 
Cobra-305 e os demais por CP- 
500. 

O drive consta de um nodo 
CS-J200 e dois discos Winchester 
de 10 Mb cada, para a memdria 
de massa do sistema. O nodo li- 
ga a uma Elgin MT-140 serial 
funcionando em spoolling. A li- 
nha constitui-se de um par ie- 
lefdnico trancado que interliga 
postos e servidor totalizando um 
comprimento de 233 metros. 

A rede local da Embratel ro- 
dou de im'cio o Correio Eletrd- 
nico, desenvolvido em BASIC 
pelo seu Departamento de Pro- 
cessamento de Dados, possibili- 
tando a troca de mensagens en- 
tre os usudrios, utilizando um 
arquivo central localizado nos 
discos. Mas vai fornecer condi- 
cdes para automacao de proces- 
sos mais complexos ora em de- 
senvolvimento. 
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REDES LOCAIS 



rede. Nesta topologia, o crescimento tambe'm 6 ilimitado, po- 
dendo suportar ate 255 estates. 

SISTEMAS DE ACESSO 

Para que as esta$6es possam trocar dados entre si e preciso 
um metodo de acesso que controle a disciplina obedecida pelas 
estacOes para acessar o meio de transmissSo. Cada me'todo esta" 
diretamente associado a um determinado tipo de topologia. 
Vejamos os mais conhecidos: 

No metodo denominado Passagem de Permissao existe uma 
mensagem de controle, token ou permissao, que e passada de 
elemento para elemento da rede. Apenas aquele que possui o 
token pode fazer uso da via de interconexSo. Os outros ele- 
mentos permanecem passivos aguardando a sua vez. A exis- 
tencia de mensagens para controle de acesso nos levam a con- 
siderar os seguintes aspectos: 

• Overhead da linha, ja" que a mensagem de controle na"o 
transporta informa95es uteis e de processamento, visto que ca- 
da elemento da rede deve receber, tratrar e passar adiante o 
token. 

• Confiabilidade, pois um erro no meio de transmissSo pode 
tomar a mensagem irreconhecivel, e se nSo houver mecanismos 
que a restaurem, a rede permanecera' inativa ate' que ela se tor- 
ne inteligivel. 

Este metodo de acesso e normalmente utilizado em redes 
com topologia emanel. 

metodo conhecido por Escaninhos ou Slots, tambem 
utilizado em sistemas de topologia em anel, se resume em 
dividir o anel em escaninhos, que circulam atrave's da rede. 
Eles sSo de tamanho fixo e possuem um bit que indica se ele 
esta ocupado ou vazio. Para transmitir uma mensagem, a inter- 
face aguarda um escaninho vazio, a introduz e seta o bit para 
indicar que ele esta ocupado. Como os escaninhos sSo de ta- 
manho fixo, a interface deve criar pacotes antes de entrar com 
os dados na via de transmissSo. controle da rede e centrali- 
zado. Existe uma estacSo responsavel pela geracSo dos sinais 
necessarios. De um modo geral, os mesmos problemas do me- 
todo de acesso token passing estSo aqui presentes. 

No metodo Acesso Multiplo com Deteccao de Portadora — 
CSMA, a estacSo que deseja transmitir verifica antes se existe 
alguma mensagem fluindo pela via de interconexSo. Se houver, 
aguarda ate" que a via fique liberada e entSo envia sua mensa- 
gem. Se ocorrer um estado de colisSo, ou seja, duas estacoes 
enviarem suas mensagens ao mesmo tempo, elas serao super- 
postas e perdidas. fato de cada estacSo verificar se o meio 
esta" livre antes de transmitir uma mensagem, jd reduz consi- 
deravelmente a possibilidade de colisSo, jd que o tempo de pro- 
pagacao e bem menor que o de transmissSo. Entretanto, o tem- 
po perdido com colisOes pode ser reduzido com a utiliza?a"o do 
mecanismo de detec9So de colisSo CD. No me'todo CSMA/CD 
o meio e monitorado antes e durante a transmissSo de uma 
mensagem. Neste caso, quando ocorrer um estado de colisSo, 
a transmissSo e' imediatamente interrompida e uma nova ten- 
tativa e realizada apos um certo intervalo de tempo. Este me- 
todo e normalmente utilizado em redes de topologia tipo 
Barra Comum, e os problemas citados nos me'todos anteriores 
sao aqui praticamente eliminados. 

EMSETE CAMADAS 

Para redes de computadores geograficamente distantes hi 
um modelo de referenda criado pela International Standard 
Organization (ISO), que consiste em dividir um projeto em 
sete camadas, relativamente independentes umas das outras 
(Figura 5). 

A denominacao do modelo e' Open Systems Interconec- 
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tions (OSI) e a descricSb de cada ni'vel e a seguinte: 

• Fi'sico — responsavel pela transmissSo pura de bits por uma 
linha de transmissao (voltagens, velocidades, tipo de transmis- 
sSo etc.). 

• ConexSo de dados - responsavel pelo metodo de acesso, 
deteccSo de erros (protocolo)e controle de fluxo. 

• Rede - responsavel pelo empacotamento de mensagens, ou 
seja, e transparente ao usuario o tamanho do arquivo a ser en- 
viado. 

• Transporte — responsavel pela transferencia de dados entre 
equipamentos e pela multiplexacSo de canais, tornando pos- 
si'vel que varias conversQes simultaneas ocorram na rede. 

• SessSo - Oferece ao usuario o acesso a rede, permitindo 
que dois usuarios estabele9am uma conexSO. estabelecimen- 
to de uma sessSo envolve a troca de parametros. 

• Apresenta^So - responsavel pela conversSo de codigos, tais 
como de formatos de arquivos, compressSo de texto etc. 

• Aplica9ao — sSo os programas aplicativos. 

Para as redes locais nSo se formou um padrSo devido as 
particularidades de cada sistema, mas apenas uma recomenda- 
9S0 "BEEE-802" que envolve basicamente os ni'veis 1 e 2 do 
ISO. £ recomendado para meio de comunica9So o par tran9a- 
do, cabo coaxial ou fibra otica. E para me'todo de acesso/to- 
pologia as indica95es sSo CSMA/BUS, TOKEN/BUS ou TO- 
KEN/ANEL. 

A sele9ao de uma rede local deve levar em considera9So 
os aspectos ja citados e tambe'm os seguintes: 

• Se e uma rede aberta (aceita varios tipos de equipamentos) 
ou fechada (requer equipamentos de um s6 fabricante). 

• Caracten'sticas do servidor de arquivos (verificar se possui 
facilidades para a cria9So de subdiret6rios, controle de acesso 
por passwords, lock de registros etc.). 

c Verificar como a rede local se comporta quando um arquivo 
j£ se encontra aberto e outra esta9So executa o mesmo proce- 
dimento. Avaliar se o comportamento do sistema, neste as- 
pecto, atende as caracten'sticas particulares de suas aplica95es. 

• Servidor de impressSo (verificar se possui facilidades para 
determinar prioridades de impressSo, se ocorrem superposi- 
96es de arquivos etc.). 

• Verificar se o usuario podera" associar um dispositivo fi'si- 
co (qualquer perife'rico ligado ao sistema) de uma determinada 
esta9So a um dos dispositivos 16gicos de sua esta9ao de traba- 
lho. 

• Degrada9So (verificar qual ni'vel de degrada9ao que ocor- 
re com o incremento de novas esta9Qes). 

E como conselho final, procure simular todas as situa96es 
que deverSo ocorrer no momento em que a rede local estiver 
em opera9So, para que voce nSo conclua no futuro que nSo im- 
plantou uma rede local, e sim uma rede de problemas. 



■ 



Amaury Moraes Junior 4 formado pelo curso de Andlise de Sistemas da 
FASP, tendo feito diversos cursos de aperfeipoamento nas areas de Ele- 
trdnica Digital e Microprooessadores. Atualmente trabalha na a"rea de 
microcomputadores para o City bank. 




Asegunda 
memdria do seu 



RQ-2222. 



O gravador 
National RQ-2222 
e o preferido 
pelos usuarios de micro- 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 



amaioreconomia. 



Porque tern um sistema de 
cabecote prbprio para 
o uso em micros. O gravador 
National RQ-2222 tern um 
contador de fita que facilita 
a localizacao do programa a 
ser utilizado. E tern tambem 
um comando unico para 
gravacao tipo "Um Toque", 
muito mais pratico. Um 
gravador que vive na memo- 
ria do computador merece 
tamb6m viver na sua. 

Grave este nome: National 
RQ-2222. 



National 
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Nova empresa 
no grupo Prologica 

grupo Prol6gica esta formando uma nova empresa, a CP — Compu- 
tadores Pessoais LTOA, responsavel pela fabric'acao e comercializacao 
dos com put ado res pessoais do grupo. 

A CP mantera' basicamente a infra-estrutura da divisSo que existe 
atual mente, al6m da ampliacao dos departamentos e de maior autonomia e 
flexibilidade no atendimento a clientes e fornecedores. A totalidade do 
capital no atendimento a clientes e fornecedores. A totalidade do capi- 
tal aciona>io da nova empresa pertencera' aos atuais acionistas do grupo 
Prologica. 

A sede da CP — Computadores Pessoais LTDA ficara na Rua Ptolo- 
meu, 650- Vila Socorro, SSo Paulo, CEP: 04762, tel.: (01 1) 247-6934. 

Bolsas de estudo para 
curso de jogos 

A Ciberne Software esta oferecendo bolsas de estudo, em regime in- 
tegral, para programadores interessados no 19 Curso de Projeto e De- 
senvolvimento de Jogos para Microcomputadores. Os dez bolsistas, que 
deverao ter mais de 16 anos e serem programadores de equipamentos 
com processador Z-80, serSo selecionados, por entrevista, entre o total 
de inscritos. O curso, que tera" a duracao de 50 horas, sera ministrado 
por Renato Degiovani. 

Para maiores informacdes sobre o curso e o procedimento de inscri- 
cao, a Ciberne deixa a disposicao dos interessados o seu telefone: (021) 
262-6968. 
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Cartoes Microcraft 



A Microcraft comecou o ano 
com tres novos lancamentos para 
seu microcomputador Craft II 
Plus. SSo eles: CartSo Pal/M, Car- 
tSo controlador de disquetes de 
8" e um drive para discos de 8". 
Com a nova placa Pal/M o Craft II 
Plus pode trabalhar com monitor 
de vfdeo ou televisor comum 
colorido. A placa nao vem incor- 
porada no modelo bSsico do mi- 
cro, sendo vendida como expan- 
sSo e seu preco e de 375 mil. Com 
o cartSo controlador de discos, o 



micro passa a aceitar disquetes de 
8", dupla face e dupla densidade, 
ate" um total de 4 Mb. Cada placa 
aceita dois drives de 1 Mb cada e 
custa Cr$ 1.390 mil. E o novo 
drive para disquetes de 8", dupla 
face e dupla densidade, com fon- 
te, cabo de ligacao e o prdprio ga- 
binete tamb6m ja" esta sendo co- 
mere ializado e seu preco 6 de 
Cr$ 8.765 mil. A Microcraft esta 
produzindo atualmente cerca de 
200 unidades do Craft II Plus por 
m§s. 



Novos jogos 
Ciberne 



A JVA Microcomputadores lancou mais 
quatro f itas de jogos sob a sigla Ciberne Soft- 
ware. As fitas sao dedicadas a equipamentos 
com I6gica Sinclair e, cada uma, contem tres 
jogos que mesclam acao e emoca"o, criando 
uma atmosfera de sonho, onde o usuario se 
transfigura sucessivamente em piloto espacial, 
mercador, robo e at6 num cidadao comum a 
merc§ de assaltantes. 

Nesse novo grupo, ao contra"rio do lancado 
no ano passado, a JVA procurou misturar di- 
versos generos de jogos, em cada f ita. A inten- 
cao foi clara: agradar a todos os tipos de pu- 
blico. 

A maioria dos jogos sao traducoes e ver- 
sdes de jogos americanos, mas a JVA teve a 
preocupacao de manter em cada fita, pelo 
menos um jogo de autor nacional. Segundo 
Jos6 Eduardo Neves, diretor da empresa, essa 
iniciativa devera" se tornar uma pra'tica da 
marca Ciberne. 

"Estamos fazendo uma selecao de jogos de 
nossos autores, com o objetivo de incentivd- 
los a produzir jogos nacionais. Nao nos inte- 
ressa apenas traducoes e versoes, mas sim ma- 
terial original. Estamos at6 promovendo um 
curso de Programacao de Jogos para incenti- 
var o pessoal". 

Segundo Jose" Eduardo e possi'vel vislum- 
brar um maior interesse nessa producSo e coi- 
sas de qualidade ja" estSo comecando a surgir 
no mercado. Na sua experiencia de selecionar 
esse produto ja" deu para perceber que a quali- 
dade dos jogos vem crescendo muito. "Tive- 
mos ate\ ha algum tempo atras, o cumulo de 
receber um jogo de autor nacional, totalmente 
traduzido para o ingles. Segundo o autor isso 
dava status ao produtol". 

Os novos jogos da JVA custam, em madia, 
2.036 ORTN e, numa primeira fita, um jogo 
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• CORRIDA MALUCA 

• PINBALL 
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Valkirie, Mercador dos Seta Mares e Defensor 3D sao trSs, das quatro novas fitas da Ciberne. 



nacional de Divino C. R. LeitSo d& nome ao 
produto. Valkirie 6 um jogo de estrategia, do 
tipo invaders, onde o comandante de uma 
nave espacial tenta, em pleno planeta Vfinus, 
combater estranhas criaturas aladas. Acompa- 
nham esse jogo, na mesma fita, o Guerrilha 
C6smica e o ZOR. No primeiro, seres maquia- 
v6licos retiram tijolinhose vSo sendo abatidos, 
um a um, por um canhSo de fdtons. E um 
jogo atraente, do tipo invaders, com opcao 
para alta resolucao grafica. Ja o ZOR e um jo- 
go de acao, que reune tatica e um pouco de 
sorte. Nele, dois rob6s se defrontam no solo 
de um planeta deserto. Sem estabelecer conta- 
to visual, eles se enfrentam com armas e defe- 
sas iguais. 

Uma segunda fita traz o Mercador dot Seta 
Mares como jogo principal. Este tambe'm e um 
jogo de estrategia, mas nao militar, e sim do 
tipo banco imobiliirio. No seculo XIX, o joga- 
dor percorre o mundo a bordo de um navio, 
em busca de dtimos neg6cios. O seguinte 6 
Corrida Maluca, um jogo de aca"o, tipo PAC- 
MAN. Sao dois carros que percorrem um cir- 
cuito: um tentando apanhar todas as pedri- 
nhas do caminho; o outro, no encalco do pri- 



meiro. O ultimo da fita e o Pinball, de Divino 
C.R. Leitao, um jogo que Simula na tela uma 
maquina real de fliperama. 

Na fita denominada Subespaco esta esse 
jogo, como abertura, simulando uma verdadei- 
ra cacada espacial. O jogo e totalmente grafico 
e nele o jogador tern que cacar os inimigos 
que tentam destruir a sua espaconave. Caver- 
nas de Marts, de Divino C. R. Leitao, esta* a 
seguir, como um jogo de acao, com um bonito 
display e cavernascneias de perigos a serem en- 
frentados. Por ultimo, nessa fita, esta o Com- 
boio Espacial, tambe'm um jogo de acao, onde 
uma nave e designada para defender um inde- 
feso cargueiro. 

Defensor 3D e a ultima fita, com naves 
espaciais que cruzam o espaco em alta veloci- 
dade, na mira telesedpica de um canhao laser. 
O proximo 6 Q'BERT, de Divino C. R. LeitSo, 
um jogo que cria um neologismo e utiliza for- 
mas geom£tricas, empllhadas umas sobre as 
outras, para formar uma piramide em perspec- 
tiva. O ultimo 6 Assalto, um jogo do tipo 
PAC-MAN, onde ladrdes tentam assaltar um 
depositante que precisa chegar a salvo no 
banco. 



Monitores Videocompo 



A Compo est3 lancando quatro novos mo- 
nitores de vfdeo profissionais: tres monocro- 
maticos, que podem ser ligados a computado- 
res que tenham safda de vfdeo composto; e 
um colorido, que traz como novidade uma 
placa que permite acoplar uma Apple num 
monitor de vfdeo de boa qualidade (a placa 
convene o sinal do micro em RGB). 

O modelo CPC 14 cromatico esta sendo 
lancado em 2 versdes: m6dia resolucao grafica 
- 380 x 240 pontos;e alta resolucao - 560 x 
240. As duas versdes sab compatfveis com as 
linhas Apple, IBM e Itautec. 

O M PC Vfdeo Monocrom&ico 6 apresentado 
em 12 e 14 polegadas, sendo que o de 14 e o 
primeiro deste tamanho a ser lancado noBrasil. 
As duas opedes trazem como novidade a com- 
patibilidade com a placa monochrome IBM, e 
sSo compatfveis com as linhas Apple e Itautec. 
Possuem foco dinSmico, 160 colunasde texto 
e resolucao grafica de 720 x 240 pontos. 

Outro modelo novo, o MV, e apresentado 
nas versoes 1 e 2, ambos monocrom4ticos. As 
duas versdes apresentam 160 colunas de tex- 
to, alta resolupao grafica — 560 x 240 e tela 
anti-ofuscante opcional. O que as diferencia 6 
que o MV 1 e compatfvel com a linha Apple e 
o MV 2 com as linhas IBM e Itautec. 



Placa CP/M500, 
da Microsol 



A placa CP/M500, da Microsol, - que 
possibilita ao CP-500 processar programas 
no sistema operacional CP/M — esta 
custando menos. A unidade, que custava 
cerca de 42 ORTN, esta agora em torno 
de 34. Segundo a empresa, isso se deve ao 
aumento na venda das placas, o que incre- 
mentou a produca"o e, consequentemente,- 
barateou o custo da unidade. 

A Microsol fica na Av. Pontes Vieira, 
1867 - CEP: 60.000, Fortaleza - Ceara. 







Monitor MPC 12. 

O modelo ME Vfdeo Monocromatico 6 
apresentado em tres opedes: cinco polegadas e 
resolucao grafica de 480 x 240; nove polega- 
das e resolucao de 560 x 240, e doze polega- 
das com reslucab de 720 x 240 pontos. As 
tres versoes sao compatfveis com as linhas 
Apple, IBM e Itautec. 

A Compo oferece seus terminals direta- 
mente ao publico e atrav& de revendedores. 
Informacoes pelo tel.: (011) 548-6844, Sao 
Paulo. 



Relagao de Software 
para TK 



A Microdigital esta oferecendo uma rela- 
cao descritiva completa de programas com a 
marca Microsoft , ja desenvolvidos para a li- 
nha TK (utilitarios, aplicativos profissionais e 
jogos animados), para que o usuaVio possa 
atualizar-se quanto aos programas disponfveis 
no mercado. 

Os interessados devem escrever para: Mi- 
crodigital Eletrdnica Ltda. - Servico de Su- 
porte ao Usuario - Caixa Postal 54088, CEP 
01296, SSo Paulo, SP. 



STRINGS 



CCE 
a Todo Vapor 



A CCE entrou o ano de 85 a caminho 
da concretizaca"o daquilo que a empresa 
havia adiantado no final do ano passado: 
o lancamento de tres novos micros. Em 
fevereiro, a CCE colocou no mercado o 
primeiro irma"o do Exato, o MC 1000, 
que veio para concorrer diretamente com 
os micros pessoais de baixo preco dispo- 
nfveis no mercado. O novo equipamento 
foi lanpado com suporte de 50 jogos e ja 
estao sendo colocados no mercado mais 
100 programas aplicativos desenvolvidos 
por software houses credenciadas pela 
CCE. Tambam ja estao disponfveis a 
expansao de memdria de 64 Kbytes, a 
placa para o MC 1000 rodar programas 
em CP/M e a interface para utilizacao de 
disquetes de 5 1/4", com 170 Kb cada 
um, face simples e dupla densidade. Para 
o Exato a CCE colocou no mercado, nos 
primeiros meses do ano, um monitor de 
vfdeo de 12", fdsforo verde ou ambar 
(opcional), e as placas CP/M e 80 colunas. 

Mas as grandes novidades anunciadas 
pela empresa ainda estao por vir. Para o 
segundo semestre esta previsto o lanca- 
mento do terceiro membro da famflia de 
micros CCE, o MC-1500, uma versa"o 
ampliada do MC 1000 com gabinete 
maior e teclado profissional. As interfa- 
ces lancadas para o MC 1000 deverao ja 
vir embutidas nesse novo equipamento. 
Para a Feira de Informatica desse ano a 
CCE promote o lancamento de um micro 
de 16 bits compatfvel com o modelo XT 
da IBM. E na linha de 8 bits a CCE deve- 
ra apresentar tambam um novo equipa- 
mento baseado no microprocessador Z-80 
e na tecnologia MSX, desenvolvida por 
um pool de grandes empresas japonesas. 
O MC 2000 tera memdria ROM de 32 
Kbytes com uma serie de rotinas que 
facilitarao o trabalho do usuario. 




• A PTI - Publicacdes TScnicas Internacionais esta promovendo no 
Brasil o Computer Book Review, periddico americano especializado na 
anaiise e crftica de novas publicacdes na area de processamento de da- 
dos. Informacoes pelo tel.: (011) 258-8442 e 257-1640. • A BARTO 
Computadores Ltda., especialista na area de Commodore, esta confec- 
cionando um circuito de protecSo contra picos de voltagem que evita 
queima de equipamentos. Outra novidade da Bartd 6 a interface RS232 
para acoplamento dos computadores da linha Commodore ao projeto 
Cirandao e outros CBBS. Informacoes pelo tel. : (021 ) 262-1 21 3, Rio de 
Janeiro. • A Eastman Kodak Company anunciou pianos para atuar no 
mercado de telecomunicacdes, criando uma nova divisao, a Eastman 
Comunications, para comercializar servicos de telecomunicacdes. Os ser- 
vices iniciais incluirao transmissao de dados e telefonemas a longa dis- 
tSncia e, ainda, servicos em "network". • A PROLOGICA ganhou uma 
concorr§ncia para fornecimento de microcomputadores ao Minist6rio 
do Ex6rcito. Para a fase inicial do projeto o Ministario do Exdrcito ja re- 
cebeu da Proldgica 61 Super Sistemas 700 e 74 impressoras P-720. • A 
COMPUSHOP esta aceitando micros usados como parte de pagamento 
na aquisicSo de um novo sistema. Os equipamentos serSo avaliados de 
acordo com o estado de conservaca"o e marca por profissionais especiali- 
zados da empresa. Outra novidade 6 a comercializacao de equipamentos 
usados, com garantia de tres meses. • A 31 INFORMATICA ja tern va- 
rios seminarios programados para este ano, entre eles: "Redes Locais ou 



PBX", "Planejamento Estrategico em Automacao de Escritdrios" e o 
"Caminho da ImplantacSo em Automacao de Escritdrios". Informa- 
Cdes pelo tel.: (011) 521-9509, SSo Paulo. • A Texas Instruments esta 
lancando uma calculadora de mesa que dispensa o uso de baterias. A 
calculadora - TI-5022 - possui caiulas de captacSo de energia natural 
ou artificial, ficando, assim, constantemente ligada. • A IBM esta encer- 
rando a medida cautelar de vistoria, que havia apresentado contra a Sof- 
tec, na Justica de SSo Paulo. Isso porque a empresa se comprometeu a 
nSo incluir na memdria dos equipamentos que fabricar e vender o bios 
da IBM ou qualquer outro programa a ele semelhante. • A Hewlett - 
Packard Co. pagou cerca de 65 milhdes de ddlares em participacSo nos 
lucros a mais de 73 mil funcionarios, em 32 pafses. Destes, aproximada- 
mente 240 trabalham na Hewlett — Packard do Brasil Industria e Co- 
marcio, com fabrica em Campinas, SSo Paulo. • A Proceda, empresa de 
processamento de dados associada ao Grupo Santista, assinou contrato 
com a Dataldgica para distribuicSo, a nfvel nacional, dos programas co- 
mercializados por esta empresa (dBase II e Framework). • Um mini- 
computador COBRA 530 e um micro COBRA 210 estiveram presentes 
na sala de desenho industrial da exposicSo "TradicSo e Ruptura", que 
se realizou no Pavilhao da Bienal (Parque do Ibirapuera, SP). • A Nova- 
data informa que esta desenvolvendo o projeto de seu super-minicompu- 
tador, o ND286, que sera compatfvel com o produto atual da empresa, 
o Mini ND86. 
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Com a importancia que vem assumindo a comunicagao 
entre maquinas o modem ganha papel de destaque como 
pega fundamental nessa engrenagem 



Modems, 

um periferico em voga 



Estabelecer relac£o, ligar, unir, 
transmitir. Estes sSo alguns dos 
sinonimos encontrados em di- 
cionarios para o verbo comu- 
nicar, ta"o em voga em nossos dias. Na 
drea de Informatica, o verbo comuni- 
car vem sendo cada vez mais conjugado 
e mostras disso tivemos na ultima Fei- 
ra Internacional de Informdtica, realiza- 
da em novembro, no Rio de Janeiro, on- 
de um dos pontos altos foi o software 
de comunicacao. 

uso do micro como um equipa- 
mento isolado esbarra no limite da in- 
teracSo exclusiva entre a maquina e seu 
usulrio. Atualmente porem, e cada vez 
maior o numero de usuarios de micro- 
computadores que buscam uma amplia- 
ca"o dessa relacao com a maquina, atra- 
ves de ligacSd em rede e da utilizacao de 
servicos de bases de dados. 

Para que esta ligacSo se efetue, sa"o 
necess£rios tres elementos ba"sicos: 
RS232-C, um software de comunicacao 
e o modem. 

A maioria dos microcomputadores 
possui saida para ligacSd de interface 
RS232-C que e um tipo de conexa"o- 
padrSd para a ligacffo entre os micros 
e seus perife'ricos (inclusive modems, pa- 
ra acoplamento a rede telefonica) entre 
dois ou mais micros e entre um terminal 
e um computador de grande porte. Esse 
padrSo define como DTE - Data Termi- 
nal Equipment, ou Equipamento Termi- 
nal de Dados, o equipamento que gera e 
processa a informacao;e Data Commu- 
nication Equipment, ou Equipamento 
de Comunicaca"o de Dados, aquele que e 
empregado como transmissor e receptor 
de dados, no caso o modem. 

segundo componente presente nas 
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ligacSes entre equipamentos e o software 
de comunica?a"o. Este software geral- 
mente 6 comercializado sob a forma de 
pacotes de comunicacffo voltados para 
cada tipo de ligacSd que se queira efe- 
tuar. Existem os pacotes para comunica- 
cao entre micros e mainframes, por 
exemplo, atraves dos quais o micro pas- 
sa a atuar como terminal da maquina de 
grande porte ; e os pacotes para acesso is 
centrais de bancos de dados dos servicos 
comerciais. 

Alguns fabricantes de microcomputa- 
dores estSo implementando seus equipa- 
mentos, dotando-os intemamente da in- 
terface RS 232-C, do software para aces- 
so a determinados servicos e de mo- 
dems internos, dispostos em uma placa. 
Entre estes estSb a Itautec, que ja" dis- 
pute dessa implementagSo para os mi- 
cros da famflia 1-7000, para acesso ao 
Videotexto, e em breve tera" disponi'vel 
tambe'm para o 1-7000 PC XT, o micro 
de 16 bits da empresa; a Spectrum, cu- 
jos novos Microengenhos tambe'm ja" po- 
dem acessar diretamente o banco de 
dados central da Telesp; e o projeto Ci- 
randSo, da Embratel. 

O terceiro elemento e' o modem, cuja 
descricSb e consideracGes te'cnicas se en- 
contram no artigo A viagem dos dados, 
pag. 10. 

O MERCADO DE MODEMS NO 
BRASIL 

A grande maioria dos fabricantes de 
modems esta - otimista com a visfvel ex- 
pansao desse mercado e com as perspec- 
tivas para este ano que sao de um cres- 
cente aumento no volume de vendas. 



"Vivemos no rastro da indiistria de In- 
formatica, ja" que a indiistria de modems 
6 o elo de ligacao entre duas areas: a 
Informatica e as Telecomunicacoes, pos- 
sibilitando que estas interajam", afirma 
Henrique M. Tanabe, supervisor de ven- 
das da Moddata/Coencisa. 

A Coencisa e' o fabricante que possui 
a maior variedade de modems no mer- 
cado, hoje com 14 modelos diferentes. 
Criada em 1975, a empresa foi tambe'm 
o primeiro fabricante de modems no 
Brasil e em 1983 teve seu controle acio- 
ndrio comprado pela Moddata, que na 
epoca tambe'm ja* se dedicava a fabrica- 
ca"o desses equipamentos. 

No primeiro ano de atuacSo conjun- 
ta Moddata/Coencisa, foram vendidos 
35% a mais em quantidade e 40% a mais 
em volume do que no ano anterior, ja" 
descontada a infla?a"o. Em 1984 a em- 
presa vendeu, somente em Sao Paulo, 
cinco mil modems com um faturamento 
de Cr$ 35 bilhoes em todo o Pais, e 
para este ano as provisoes sSo de no mi- 
nimo dobrar as vendas. Segundo Henri- 
que Tanabe, estas provisoes se concen- 
tram principalmente na 2rea de modems 
para micros, ja que segundo ele os equi- 
pamentos de alta velocidade man tern 
um crescimento constante. 

A Moddata/Coencisa fechou o ano 
com a assinatura de um contrato com a 
Embratel da ordem de Cr$ 20 bilhQes 
para o fornecimento de modems. Du- 
rante o ano de 1984, a empresa investiu 
cerca de Cr$ 2 bilhoes em pesquisa e de- 
senvolvimento e hoje os modems da 
Moddata/Coencisa possuem um rhdice 
de nacionalizagSb de 95%, sendo que 
muitos ja* atingiram 100%. 
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A Elebra, conhecido fabricante da 
area de Informatica, possui sete modelos 
de modems disponi'veis no mercado. Em 
1984, o Departamento de Transmissao 
de Dados passou por uma reestruturacSb 
na qual foi dada enfase ao segmento de 
modems com a criacao de servicos para 
maior suporte tdcnico. Antigamente.es- 
te segmento da empresa era voltado 
principalmente para grandes usuarios e 
grandes vendas e hoje volta-se tambe'm 
aos pequenos usuarios. Segundo su- 
pervisor de planejamento de produto, 
Alexandre Reznik, o mercado de mo- 
dems esta em franco desenvolvimento, 
incentivado por clubes de usuarios e ser- 
vices como o Cirandao e Videotexto. 
"O mercado 6 promissor e os resultados 
tern sido excelentes", diz ele, "o tele- 
processamento vai crescer com a indiis- 
tria e comercio comprando cada vez 
mais modems impulsionados pelo domi- 
nio da maquina por parte do usuario". 

O modem de maior venda entre os 
modelos da Elebra 6 o Banda-Base, um 
modem digital para ligacSes urbanas que 
esta sendo muito utUizado por bancos 
para ligagOes de terminals entre as agen- 
das. A nacionalizagao dos modems da 
Elebra varia entre 85 e 100%, este ulti- 
mo l'ndice alcan$ado nos modelos de 
baixa velocidade, ja que para os de alta 
velocidade ainda sao importados deter- 
minados componentes. Durante o ano 
de 1984 a Elebra registrou um cresci- 
mento da ordem de 25 a 30% na area de 
modems e para esse ano esta previsto 
um crescimento tambe'm nesta faixa. 

No entanto, na maioria dos casos de 
ligacao de micros entre si ou de micros 
a equipamentos de grande porte os mo- 
dems utilizados sSo do tipo analdgico e 
assi'ncrono. Entre os modems analogi- 
cos assi'ncronos, os de 300 bps sao con- 
siderados ideais para ligac5es com mi- 
crocomputadores pessoais principalmen- 
te pelo prego reduzido e pela facilidade 
de instalagao. 

Mais especificamente, os modems de 
acesso a bancos de dados ainda podem 
possuir um dispositivo de resposta auto- 
matica (DRA) que atende as chamadas 
atraves de um ruido, informando ao 
usuario que a liga?ao foi completada. 
Alguns modelos trazem um outro dispo- 



sitivo de auto discagem. O usuario pro- 
grama seu micro com o numero que de- 
seja discar e ele o faz automaticamente 
atraves do modem. 

A opiniao de que os servicos de ban- 
cos de dados como Cirandao e Video- 
texto entre outros vem impulsionando 
significativamente o mercado de mo- 
dems 6 ressaltado por Adailton Souza 
de Oliveira, Assistente de Marketing da 
CMA Indiistria Eletronica. A empresa 
surgiu da CMA Sistemas, que para trans- 
missao de dados dos Estados Unidos pa- 
ra ca comegou a fabricar os equipamen- 
tos que necessitava, passando a comer- 
cializa-los um ano depois. Hoje, a CMA 
dispOe de cinco modelos de modems, 
com um mdice medio de nacionaliza- 
9S0 de 90.8%, sendo o A 217 CT o mais 
procurado para utilizacSo em acesso ao 
Cirandao e Videotexto. A empresa fa- 
bricava um acoplador aciistico, hoje 
fora de linha por falta de mercado. 

Outro fabricante pioneiro na area de 
modems e' a Parks, que ha 18 anos co- 
megou fabricando alarmes residenciais 
e comerciais e entre 1975 e 76 entrou 
na area de Informatica passando a fa- 
bricar modems. Segundo Jaiter Pereira 
de Padua, da area comercial, a Parks 6 
uma das tres maiores empresas desse 
segmento juntamente com a Moddata/ 
Coencisa e a Elebra. Ele afirma que 
1984 foi um ano muito bom para a 
Parks, que mesmo com a crise registrou 
um crescimento real entre Janeiro e 
junho, quando encerra o ano fiscal, de 
79%, e um faturamento de Cr$ 3 bi- 
lhoes. Para 85 a meta da empresa 6 
atingir um crescimento da ordem de 
150%. 

De julho de 1983 a junho de 84 a 
Parks fabricou 5.300 modems e para o 
proximo exerci'cio espera, no mmimo, 
dobrar essa producSb. Foram investidos 
Cr$ 600 milhdes em pesquisa e desen- 
volvimento e o ihdice de nacionaliza- 
9S0 dos produtos da Parks atinge hoje 
98%, com a importacao apenas dos cir- 
cuitos que nao s3o fabricados no Brasil. 



Tex to final: Stela Lachtermacher 



Tabela de modems 



Aseguir, publicamos uma tabela com os modems que estdo no mercado e que sao utili- 
zados em microcomputadores. Estes sao os enderecos das empresas que fazem parte 
desta tabela: Moddata/Coencisa - R. Dr. Sodri, 72, SP, tel: (011) 543-2711; Elebra Ele- 
trdnica - Av. Eng° Luiz Carlos Berrini, 1461, SP, tel.: (01 1) 533-9977; Parks Equipamen- 
tos Eletrdnicos Ltda. - Av. Parand, 2335, PA, tel. (0512) 42-5500; Digitel Equipamentos 
Eletrdnicos Ltda. - R. Joao Abott, 503, PA, tel.: (0512) 32-5999; CMA Industria Eletro- 
nica - A v. Giovanni Gronchi, 6065, SP, tel.: (011) 548-2249; ABC Dados Sistemas S/A - 
Estrada do Tindiba, 1608, RJ, tel.: (021) 392-8585; CMW Sistemas Ltda. - R. Josi Oli- 
veira Coutinho, 70, SP, tel: (01 1) 826-6444; Splice Industria e Comercio - Av. Juscelino 
K. de Oliveira, 154, Votorantin, SP, tel: (0152) 43-1316; Milmar Industria e Comercio 
Ltda. - Av. Dr. Cardoso de Mello, 1336, SP, tel: (011) 531-3433; EES - RuaNapoledo 
de Barros, 593. SP, tel: (01 1) 571-0782. 
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PROGRAMASDETREINAMENTO 

AREA DE MICROINFORMATICA 

• PARA USUARIOS 
(INTRODUQAO A PD, VISICALC/ 
SUPERCALC. WORDSTAR, 
dBASE II. BASIC) 

• PARA PROGRAMAOORES E 
ANALISTAS 

(INTRODUQAO AO MICRO. CP/M, 
BASIC SOB CP/M. WORDSTAR E 
dBASE II) 

• NA EOUCACAO 

(LOGO PARA EDUCADORES E 
PSICOLOGOS;LOGO PARA 
JOVENS) 

FORMACAO PROFISSIONAL EM 

PROGRAMACAO E ANALISE DE 

SISTEMAS 

APERFEICOAMENTO 
PROFISSIONAL EM AMBIENTE IBM 

CPD-ORT: IBM 4341 

COMTERMINAIS 

LABORATORIO DE MICROS 

TREINAMENTO IN HOUSE 
EXCLUSIVO PARA EMPRESAS 

SOLICITE INFORMACOES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA. 213 BOTAFOGO 
RJ - TEL 286 7842 
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SO PARA EMPRESARIOS | 
MUITO INTELIGENTES... 
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— A sua contabilidade atende a 
voce ou somente aos f iscais? 

— Voce tern um bom controle 
de contas a pagar e a receber? 

— A sua administragao de imo- 
veis e realmente eficiente? 

Na TESBI Informatica voce en- 
contra programas de contabili- 
dade CAP/CAR e Administra- 
gao de Imoveis voltados para 
voce, Gerente eficiente. Todos 
desenvolvidos em DBII ou Ba- 
sic. 

Cursos praticos de dBase, Wor- 
dstar e Supercalc. 




Melhores Informacdes pelo 
tel.: 284-6949 c/Liege 
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TESBI INFORMATICA LTDA. 

Av 28 de Setembro, 226 
Li. 110- V.Isabel 



MODEMS, UM PERIFERICO EM VOGA 
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FABRICANTE 


MODELO 


TIPO 


VELOCIDADE (bps) 


MODO DE 
TRANSMISSAO 


PREQOS 


SERVICOS/ 


MODDATA 
/COENCISA 


BBC III 


sinc./digt. 


9600, 4800. 2400 ou 1200 


s. d. a 2 ou 4 f ios e d. a 4 fios 


105 




96 BA 


assinc. /digt. 


ate 9600 


s. d. a 2 ou 4 fios e d. a 4 fios 


44 


- 


24 TTL-C 


sine, /analg. 


2400 ou 1 200 


s. d. a 2 ou 4 fiose d. a 4 fios 


170 




MC-16 


assinc. /analg. 


ate 1600 


d. a 4 fiosou s. d. a 2 fios 


65 


Ciranda 


MC-22 


sine, ou assinc./ 
analg. 


sine, em 600 ou 1200. 
assinc. em at6 300. 600 ou 
1200 


d. a 2 fios 


148 


resp. aut. 


MC-23 


assinc. /analg. 


600. 1200ou 1200/75 


d. a 4 fios ou s. d. a 2 fios 


120 


Vdt., Cirandao/ resp. 
aut. ope. 


MPC-12 


assinc. /analg. 


ate 1 200 


s. d.a 2 fios 


37 


Ciranda 


MC-13 


assinc. /analg. 


1200ou 1200/75 


s. d. a 2 fios 


25 


Videotexto, Cirandao 


MC-31 


assinc. /analg 


300, 600, 1 200 ou 1 200/ 75 


d. ou s. d.a 2 fios 


39 


Ciranda, Cirandao, 
Videotexto/' 1 


300 TTL 


assinc. /analg. 


ate 300 


d. ou s. d. a 2 fios 


71 


Ciranda"o/resp. aut. ope. 


MPC-03 


assmc. /analq. 


dte 300 


d ou s d.a 2 fios 




Cirandao^ 


ELEBRA 


DS-2401 


sine. /analg 


2400 


s. d. a 2 ou 4 fios e d. a 4 fios 


163 


resp. aut. ope. 


DA-1201 


assinc./analg. 


ate 1200 


d. a 4 fios ou s. d. a 2ou 4 fios 


86 


resp. aut. ope. 


DA-1031 


assinc. /analg. 


ate 300 


d. ou s. d. a 2 ou 4 fios 


93 


resp. aut. ope. 


PARKS 


UP-9600 


sinc./digt. 


9600 


d. a 4 fios ou s. d. a 2 fios 


60 




UP-2410/S 


sine, /analg. 


1200 ou 2400 


d. a 4 fios ou s. d. a 2 fios 


110 


serie com ope. 


UP-1210/II 


assinc. /anslg. 


ate 1200 


d. a 4 fios ou s. d. a 2 fios 


60 


serie com ope. 


UP- 1200 VTX 


assinc./analg. 


1200/75 


d. a 4 fios ou s. d. a 2 fios 


25 


Videotexto 


UP- 1275 VTX 


assinc./analg. 


1200ou 1200/75 


d. a 4 fios. s. d. a 2 fios 


35 


Cirandao, Videotexto, 
Renpac 


UP-310/II 


assinc./analg. 


at6 300 


d. a 4 fios ou a 2 fios 


55 


Cirandao/serie com ope. 


UP-9.600 


assinc. /digt. 


ate 9600 


d. a 4 fios ou s. d. a 2 fios 


- 


em lancamento 


UP- 1200 


assinc./analg. 


ate 1200 


'. . ;. - .:■!, 


- 


em lancamento 


DIGITEL 


AD 9.600 BC 


assinc. /digt. 


ate 9600 


d. a 4 fios ou s. d. a 2 fios 






AD 9.600 B 


assinc. /digt. 


ate 9600 


d. a 4 fios ou s. d. a 2 fios 


- 


- 


SD 9.600 BC 


sine cliijt. 


1 200. 2400. 4800, ou 9600 


d. a 4 ou s. d. a 2 fios 


- 


com equalizador aut. 


SA 2400 B 


sine. /analq 


2400 


d. a 4 fios ou s. d. a 2 fios 


- 


- 


A A 1200 


assinc./analg. 


600. 1 200 ou 1 600 


d. a 4 fios ou s. d. a 2 fios 


- 




AA 1 200 B 


assinc./analg. 


ate 1 200 


d. a 4 fios ou s. d. a 2 fios 


- 


— 


AA 2203 


assinc./analg. 


ate 1 200 


d. a 2 fios 


- 


com teste remoto 


AA 1275 BC 


assinc./analg. 


1200ou 1200/75 


d. a 2 ou 4 fios ou s. d. a 2 fios 


38 


Videotexto 




assinc. /analq. 


jj^JQJL^ 


til ? 3 \h s 


- 


resp. aut-ojj^^ 


CMA 


A 217 CT 


assinc./analg. 


1 200/75 


d. a 2 fios 


22 


Videotexto/pino DIN 


A217C 


assinc./analg. 


1 200/75 


d. a 2 fios 


28 


Videotexto, Cirandao 


A 271 C 


assinc./analg. 


75/1200 


d. a 2 fios 


30 


- 


A 212C 


assinc./analg. 


75/1200 


d.a 2f.os 


36 


Videotexto, Cirandao 


A 230 C 


assinc. .'analg. 


ate 300 


d a 2 fios 


48 




ABC 
DADOS 


ABC-24 


sine. /analg. 


2400 ou 1 200 


d. a 4 fios ou s. d. a 2 ou 4 fios 


110 


Trans, Renpac/resp. aut. 


ABC 3/12 


assinc./analg. 


300.600. 1200ou 1200/75 


d. a 4 fios e s. d. a 2 ou 4 fios 


80 


Ciranda, Cirandao, 
Vdt./resoaut^ 


CMW 


MDA-1200P 


assinc./analg. 


ate 1200 


d. a 4 fios ou s. d. a 2 ou 4 fios 


- 




SPLICE 


MA-1200 


assinc. 'analg. 


1200ou 1200/75 


d. a 2 fios e s. d. a 2 fios 




Videotexto. Cirandao 


MILMAR 


Modelo 1 


assinc. /digt. 


2400, 1200ou 1200/75 


d. ou s. d.a 2 fios 


- 


Videotexto/resp. e 
disc. aut. 


Modelo 2 


sinc./digt. 


2400, 1200ou 1200/75 


d. ou s. d. a 2 fios 


- 


Videotexto/resp. e 
disc. aut. 


Modelo 3 


assinc. /digt. 


2400 ou 1200 


d. ou s. d. a 2 fios 


- 


resp. e disc. aut. 


Modelo 4 


sine. /digt 


2400 ou 1 200 


d. ou s. d. a 2 fios 


- 


resp. e disc. aut. 


EES 


EES-07 


assinc./analg. 


ate 300 


s. d. a 2 fios 


9 


•2 


ABREVIATU 
analg. — anal 
plex sine. — s 
*1 Esto mode 
"2 Este mode 


RASUTILIZAC 

Dgico assinc. — a 
ncrono Trans. - 
lo.alem do CCM 
m e o primeiro n 


AS 

ssfnerono aut. — 
Transdata Vdt. - 
T, e baseado no p. 
lodelo nacional es 


jutomatica d. - duplex digt. - 
Videotexto 
adrao Bel. 
seeffico para a linha Sinclair. 


digital disc, -discagem ope. — op- 


cional rasp. - 


- resposta s.d. - semi du 
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a base de um sistema 
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luantomais 
complexo tor um sistema 
mais solida e conlidvel 
deve ser sua base 
Quando voce tern um 
micro da Unitron como 
principio inteligente, voce 
tambem tern a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
estd assegurado. E a 
palavra de quern 
trabalha continuamente 
para oterecer uma 
tecnologia sempre atual 
ao usudrio, E o que ostatos demonstram. 
Nasua categoria, o Unitron andou sempre na 
trente Al$m de contar com uma intinidade de 
programas t testados e aprovados, e os mais 




diversiticados acessOrios 
de expansdo - entre 
mddulos, interfaces e 
peril$rico$-,o Unitron 
agora pode ser 
conectado, via teletone, a 
todas as redes existentes: 
Amanda. Cirandao, 
Interdata, Cyber, 
Videotexto. CMA etc, Ou, 
entdo, ds redes 
particulares, acessando 
outros micros ou 
comunicando-se com 
computadores de grande 
porte, na tuncdo de 
terminal inteligente. Portanto, se voc& deseja um 
processamento de dados com qualidade, tale 
com nossos revendedores autorizados. Para cada 
caso, umasolucdo inteitgente. Do principio ao hm. 





unitron 
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MICRO SISTEMAS, marco/85 



Mais do que um incrivel jogoem Assembler e BASIC paraseu micro TRS-80: 
Quasar IV reiine tres programas em um so e ainda da de presente um 
compilador BASIC, em BASIC, para os mais exigentes. Entre logo nos 
quadrantes da Galaxia e comande esta ficgao! 



Quasar IV: uma 
aventura com pi I a da 



Lav/o Pareschi , 



Um bom jogo £ difi'cil. Em BASIC, entffo, £ raro, prin- 
cipalmenle por causa da lentidSo do interpretador. 
E na maioria dos jogos em linguagem de maquina 
(Z80, neste nosso caso), o que temos? Uma luta de 
reflexos contra uma maquina que nSo se cansa de repetir a 
mesma cena, o mesmo movimento, a mesma sequencia... repe- 
tir. repetir e repetir. Passada a novidade, nffo hi maisgraca. 
Descobertos os macetes. nSo existe mais desafio e o unico 
objetivo passa a ser aumentar o mimero de pontos, o que, con- 
venhamos. £ muito pouco. 

A maior fraqueza de um jogo 4 a falta de criatividade, a nao 
variedade, e a propria limitacffo dos recursos disponiveis imp6e 
esta condicao. Simulacocs de jogos inteltgentes, como dama, 
xadrez ou gamSo, sao exceeoes, isto quando(e so quando) sa"o 
bem feitas. o que nao impede, no entanto,que muitosos con- 
sidcrcm como jogos molengas, justamente devido a aus£ncia de 
variedade. 

E o que £ o Quasar TV? Um jogo molenga? Nao. Um jogo de 
puro raciocinio abstralo ou de movimentacSo assombrosa? 
Tambe"m nao. Ele £ um jogo em que a principal caracten'stica £ 
a variedade, com varios jogos em um, todos seguindo um tema 
comurn, e que ora requer sorte, ora malandragem, ora rapidez, 
depcndendo das circunstlncias. Enfim, um jogo facil, difi'cil e 
impossi'vel. 

Neste programa de ficcfo a grande aventura £ sobreviver ate* 
o fim dos tempos como comandante de uma espaconave (a 
Enterprise, £ claro!) que navega pelos quadrantes da galaxia e 
precisa evitar ou combat er os inimigos da FederacSo (Klingons, 
Romulans etc.) que nao dSo sossego. O Quasar IV £ em tempo 
real (centons) e se o comandante nffo fizer nada, o tempo 
cone, os inimigos o ceream e.... ja" era! 

NSo £ ficil ser comandante desta Enterprise: £ preciso 
aprender a lidar com phasers, misseis, campos de forca, tern- 
pestades ionicas, buracos negros, minas hiperespaciais, planetas 
de anti-matem, sensores inter-galiticos, quadrantes do espaco 
sideral, comunieacoes condificadas, chuvas de particulas, m6- 
dulos de sobrevivencia, deformacoes repentinas do espaco e 
muito mais. comandante que chegar (vivo) ao fim de sua 
missao, no tempo estipulado, recebera* uma condecoracao espe- 
cial da Federaclol 



O jogo £ sonoro, com musicas, tiros e ruidos de toda espi- 
cie (o que nao falta £ barulho). Apresenta tambem efeitos vi- 
suais e imagens diversas, representando cada circunstancia, e os 
comandos possi'veis s5o geralmente apresentados na prdpria te- 
la, como opcoes para o comandante, 

ESTRUTURA DO QUASAR IV 

O comando desta espaconave exige cerca de 24 Kb de 
BASIC misturados com diversas sub-rotinas Z80, sendo duas 
compiladas, de aproximadamente 5 Kb cada uma. Fa'cil, nSo? 

O Quasar IV esta* dividido em tr£s m6dulos: I - Quasar/ 
MIX, em BASIC (listagem 4), programa principal que carrega 
os outros mddulos e content todas as sub-rotinas Z80, contro- 
lando as chamadasvia USR; 2 - QuasI/USR, em Z80, compi- 
lado do programa Quasl/CMP, em BASIC (listagem 2), pelo 
compilador Compiler/BAS (listagem 1), que tambem sera - apre- 
sentado como parte integrante deste artigo;3 - Quasi I/USR, 
em Z80, compilado do programa QuasII/CMF, em BASIC 
(listagem 3), pelo compilador Compiler/BAS. 

A configurafao mais apropriada para o desenvolvimento do 
Quasar IV £ um equipamento compativel oom o TRS-80 mo- 
delo III, com 48 Kb de memoria e, pelo menos, um drive. As 
listagens apresentadas do Quasar /MIX e do Compiler/BAS sfo 
para o NEWDOS 2.2 (ao final do texto, no Apfindice B, estao 
as adaptacOes necessirias para que rodem em TRS DOS). 

Para a inclusio das sub-rotinas Z-80 dentro do BASIC de 
Quasar/MlX, aconselhamos o uso do programa utilitirio Poko- 
des/BAS (publicado em MS n° 36), pois facilita bastante. For 
falar em facilitar, com esta intencfio o Quasar IV foi dividido 
em quatro partes: 1° - Compiler/BAS, com descric5o,inst ru- 
c6es detalhadas e listagem; 2? - Quasl/USR, com listagem 
(/CMP) e compilacffo; 3? - QuaslI/USR, com Ustagem 
(/CMP) e compilac£o;49 - Quasar/MIX, suadescricffo T inclu- 
sSo das sub-rotinas Z80, instn^des do jogo e listagem. 

COMPILER/BAS, COMPILADOR 
BASIC, EM BASIC 

Uma ferramenta poderosa, o compilador. Para se elaborar 
um programa decente, e decente tern que ser em linguagem de 



maquina, pelo menos em parte (como 6 o caso de Quasar 
IV), sem que fiquemos loucos ou desesperados escrevendo di- 
retamente em Assembler e debugando durante semanas (isso 
com otimismo), e essencial a utilizacSo de um compilador. 

Mas como conseguir um bom compilador sem gastar muito 
ou se arriscar com piratas sem manual? Difi'cil. Porem Quasar 
IV precisava de um e o jeito foi fazer um, simples, razodvel e 
que nao gastasse kilos de bytes para somar tres numeros, co- 
mo pude constatar em certos compiladores que experimentei 
— uma piada o desperdicio de memoria! 

Compiler/BAS produz c6digo de maquina usando as rotinas 
da ROM do micro. Nao desperdica memoria reservando espaco 
para variaveis que nao ser3o utilizadas, e no menu inicial sa"o 
determinadas as dimensSes de todos os parametros necessdrios 
ao programa. Embora isto implique em maior lentidao na exe- 
cucao, ganha-se em espa90 de RAM. Rotinas envolvendo 
numeros inteiros e grdficos (SET, RESET, POINT...) sao acele- 
radas de 50 a 100 vezes e rotinas com numeros de simples pre- 
cisao sao aceleradas de tres a 20 vezes em relacao ao interpre- 
trad r . Por ser escrito em BASIC, sua opera?ao e lenta,gastan- 
do ' m minuto para compilar um Kb de programa, mas o resul- 
tauo vale a pena. (Quern quiser compilar o pr6prio compilador, 
pode tentar...) 

Ele trabalha com numeros e varitfveis inteiros ou de simples 
precisao, ate* duas dimensOes, bem como strings, e compila 
tambdm os principals comandos do interpret ador: LET, 
PRINT, IF... THEN... ELSE, GOTO, GOSUB. RETURN, 
FOR... NEXT, INPUT, POKE, PEEK, SET, RESET, POINT, 
CLS, REM, END, DEFUSR, USR, OUT, CHR$, VAL e as fun- 
cSes RND (0), SQR, ABS, LOG, EXP, COS, SIN, TAN, ATN, 
INT e COS. Claro que ha limita?6es: e preciso atender a certas 
exigencias na forma de escrever o BASIC para ser compilado e 
a manipula?ao de strings poderia ser ampliada (a vontade...), 
mas o compromisso trabalho versus beneficio }i atingiu a um 
bom ponto com o que este compilador 6 capaz de realizar. Po- 
de-se tambem trocar variaveis entre um programa em BASIC 
rodando e um programa compilado chamado por aquele via 
USR, tornando o compilador muito util em programas mistos, 
onde rotinas graTicas (jogos) ou recursivas (matemdtica) sSo 
muito lentas quando executadas pelo interpretador. 

Existe ainda a facilidade de se testar e debugar primeiro o 
programa em BASIC, ja* pronto para a sintaxe de Compiler, 
que 6 um subconjunto da sintaxe do interpretador, e, quando 
funcionando a contento em BASIC, compite-lo (isto pode pa- 
recer elementar, mas tern muito compilador no mercado que 
nao permite). 

A listagem 1 contdm o programa. Sua numeracao deve estar 
sempre abaixo de 1000, pois acima de 1000, inclusive, deve 
ficar co-residente o programa que se quer compilar. O Compi- 
ler/BAS compila tudo o que estiver entre 1000 e 9999, sendo 
aconselhivel terminal com 10000 END. Normalmente se faz o 
merge dos programas, digita-se RUN e o Compiler entao pro- 
cura a primeira linha maior ou igual a 1000 e pede os parame- 
tros do programa a compilar, para o dimensionamento interno 
das varia'veis do programa e, inclusive, da posicao em RAM 
onde se quer colocar o resultado (DUMP e Entry-Point). 

Variaveis e armazenamento 

O Compiler divide a iiea de operacao do programa compi- 
lado em tres setores na RAM, de baixo para cima (0 a FFFFH): 
varia'veis, programa e textos. Como stack e usada a pilha do 
DOS. Quando se faz um DUMP para salvar o resultado, £ sufi- 
ciente guardar o programa e o texto, pois a a'rea de varia'veis £ 
preenchida na execu?So do programa. Nao se pode esquecer 
que a protecao do memory size deve estar um byte abaixo do 
inicio da drea das varia'veis, se o programa for chamado pelo 
BASIC. O Compiler/BAS, em sua finalizacSo, fornece as ins- 
trucoes e parametros necessdrios. Existem quatro tipos de va- 
ria'veis aceitas e armazenadas em posicoes fixas na drea de varia 
veis: 



— Integer Variables (IV): 26 varia'veis possi'veis, de A% a Z%, 
sendo que cada uma ocupa dois bytes de mem6ria. 

— Single Precision Variables (SPV): sSo 286 variaveis possi'- 
veis, que vao de A a Z, A0 a Z0, Al... Zl,..., ate" A9 a Z9. Cada 
varidvel ocupa quatro bytes sucessivos na memoria. 

— String Variables (SV): com 26 varia'veis possi'veis, de A$ a 
Z$. Cada uma ocupa os bytes na a"rea de varia'veis definidos 
como comprimento das SVs. 

— Single Precision Arrays (SPA): sao possi'veis 26 varia'veis de 
uma dimensao (1- D), de A(IV) a Z(IV); e 26 varia'veis de duas 
dimensdes (2-D) - quadradas, de A(IV1, IV2) a Z(IV1 , IV2). 
Cada variSvel ocupa quatro bytes sucessivos na memoria. £ 
importante lembrar que as SPAs de duas dimens5es tern que 
ser quadradas. 

O limite da dimensao £ a mem6ria do micro. Pode-se usar 
um array aldm de sua dimensao contanto que nSo se utilize 
os arrays subseqiientes da 2rea de varia'veis, ou seja: se 
DIM= 20, e possi'vel usar A(IV) na dimensao 30, desde que na"o 
se utilize o SPA B(x), que tera" seu espaco de mem6ria ocupado 
por A(x). Normalmente, ao se dimensionar os SPA de uma 
dimensao, por exemplo, em 10, ser5o usados os SPAs cujas IVs 
sejam de a 9. 

O compilador aceita a varia'vel A(I%), pois 1% £ uma IV. 
Mas nao aceita A(2), e se esta for empregada, surgira - uma men- 
sagem de erro. £ interessante observar que as varia'veis A, A%, 
A(IV) e A(IV, IV) sSo diferentes. 

Definicoes e abrevia9des 

• Integer Variable (IV): A%... Z%. 

• Single Precision Variable (SPV): A. . .Z, A0. . .Z0, . . ., 
A9. . .Z9. 

• Single Precision Array (SPA): A(IV). . . Z(IV), A(IV, IV). . . 
Z(IV, IV). 

• String Variable (SV): A$. . .Z$. 

• Constant e (C): qualquer inteiro ou niimero decimal. 

• Possivel Inteiro (PI): qualquer inteiro na faixa de —32767 
a 32767. 

• Byte Integer (BI): inteiro de a 255 . 

• String (S): qualquer sequencia de caracteres entre aspas, 
sendo que as aspas finais podem ser omitidas se a string residir 
no final de uma linha BASIC. 

• Integer Expression (BE): qualquer sequencia da forma 
YlxY2xY3x. . ., em que Yl, Y2, Y3 representam um inteiro 
positivo menor ou igual a 32767 ou entao uma IV, e x pode 
ser o sinal de + ou de -. A sequencia pode come?ar com um 
sinal de subtracao, mas na"o com um sinal de adicao ou com 
um seguido de um sinal de adisao. Parenteses nSO sao permi- 
tidos, nem necessanos. O compilador tambe'm avalia expres- 
ses inteiras do mesmo jeito que o interpretador, mas se o resul- 
tado nSO estiver entre -32767 e +32767, o programa nao indi- 
card o erro e observe-se que 3* 5+1 nao e uma IE. 

• Single Precision Expression (SPE): qualquer expressao em 
BASIC (que na"o seja ilegal), com ou sem parenteses, formada 
de: C, IV, SPV, BI, PI, operadores +, -,*, /, simbolo de POT, e 
as fun?6es RND(0), SQR(SPE), ABS(SPE), LOG(SPE), EXP 
(SPE), COS(SPE), SIN(SPE), TAN(SPE), ATN(SPE). Veja a 
seguir quatro exemplos que ilustram bem: 

a) -(1+SQR(1.2*A%+SIN(A(I%,J%)*2.5) ) ) 

b) LOG(ARS(ZO*0.123+1)/SIN(COS(TAN(A(K%)+1) ) ) ) 

c) (-1.2+3.4+5) 

d) (I%+J*L%) 

O compilador avalia as SPEs da esquerda para a direita, nao 
importando a sua natureza (sejam *, /, +. . .), mas respeita os 
niveis de parenteses. Por isso, e preciso tomar bastante cuidado 
com a forma de escrever as SPEs, devendo-se usar os parenteses 
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QUASAR IV: UMA AVENTURA COMPILADA 



a vontade para obter o resultado correto. Assim foi feito para 
facilitar a elaboracao. Por exemplo, uma linha BASIC, assim: 
A-KB+2T) *(D+E),terd que ser reescrita para:(2*C+B) *(D+E)+A 
ou entao A-K(B-K2*C))*(D+E)). Se houver duvida, e preferivel 
usar parenteses. 

Comandos e sintaxes 

• LET: a palavra LET na"o e necessdria, mas pode ser usada 

nas seguintes circunstancias: 

\) Integer LET :X=Y 

X:IV 

Y: IE, INT(SPE), PEEK(PI), PEEK(IV), POINT(z, y), em que 

z e y sao IVs ou Bis. 

Exemplo: 

X%=S%+3+INT(2*RND(0) )+PEEK(-l) 



2) Single Precision LET: X=Y 
X:SPV 

Y:SPE 
Exemplo: 

Q=SQR( (A*A)+(B*B) ) 

3) String LET: X=Y 
X:SV 

Y: S,SV,CHRS(z)+CHR$(y)+. . . em que z e y sao IVs ou Bis. 
Exemplo: 

AS =" Compiler", A?=CHR$(32) 

Observe-se que AS+XS. . . ou "abc'V'def" nao podem ser 
usados, entretanto, atraves de PRINTs e possi'vel a concatena- 
te de strings. 

• PRINT 

1 ) PRINT (line feed e carriage return) 

2)PRINTX;Y;Z;... 

X,Y,Z:SPEs,SVseSs 

3) PRINT® X. Y:Z;... 
X:PIdeOa 1023, e IV 
Y,Z:SPEs,SVseSs 

4) PRINT @X, Y 
X:PIde0a 1023, e IV 

Y:CHRS(BI)+CHRS(BI)+. ..(neste caso, o cursor na"o e modi- 
ficado) 

Re pare que nao se deve usar vi'rgula, mas sim ponto e virgula, 
na separagao entre variaveis dentro de um PRINT. 

• IF. . . THEN. . . ELSE 

1) IFXusgYTHEN (# linha) ELSE. . . 

X: IV, SPE (mas que nao comece com uma IV) 

usg: -, >,< , <> ,><, > -,< = , - > , = < 

Y:se X-SPE THEN SPE;se X-IV THEN IV ou PI 

# linha: niimero de linha BASIC 

Note-se que ELSE pode ser seguido de quaisquer outras instru- 
coes, inclusive IF. . . THEN. . . ELSE. 

2) IFXusgYTHEN ; GOTO ( # linha) ELSE. 

XusgY: igual a anterior 

# linha: numero de linha BASIC 

Neste caso, depois de THEN e ELSE podem vir quaisquer 
outras instrucoes, inclusive IF. . .THEN. . . ELSE. 

3) IFXusgYTHEN ( # linha) ou entao IFXusgYTHEN 

(quaisquer instrucoes) 

E importante destacar as seguintes caracten'sticas: o limite de 
IFs, um dentro do outro, em uma mesma linha, e de 10; THEN 
pode ser substitui'do por GOTO ou THEN GOTO (nos itens 1 
e 3); diferentemente do interpretador, e preciso terminar cada 
THEN. . ., quando seguido de instrucoes, com um GOTO antes 
do ELSE. Veja tres exemplos elucidativos: 



IFA%=B%THEN2000ELSEPRINT"pqrt" 
IFZ%=>X%THENPRINT"Pele":GOTO2000ELSEEND 
IFA<>2*BTHENA%=INT(A) :PRINTB 

Repare que: se X=IV e Y=SPE que nao comece com uma IV, 
pode-se relacionar (X%)usgSPE ou SPEusgX%. Outra observa- 
cao interessante: IF THEN ELSE com mimeros inteiros 6 mui- 
to maisrdpido. 

• GOTO (# linha) 
# linha BASIC 

• GOSUB(# linha) 

• RETURN 

• FORX=YTOZ 
X:IV 
Y,Z:IV,PI 

Observacao: Y tern que ser < =Z (atencao que o compilador 
nao indica este erro); STEP na"o e aceito, mas pode-se fazer 
STEPs diferentes de 1 criando-se loops de software ou alteran- 
do-se x dentro do FORX. . . NEXTX. 

• NEXTX 
X:IV 

ObservacSes: X na*o pode f altar; nao se deve pular fora de um 
loop FOR-NEXT sem correr o risco do programa sob execucao 
falhar. Cada NEXT deve estar associado ao seu FOR antece- 
dents mas o compilador na"o indicara - se isto nao for obedeci- 
do. Multiplos FOR-NEXT sao permitidos sem limite. Este 
exemplo demonstra a sintaxe certa: 

FORI%=lTO10:FORJ=lTO50: . . . :NEXTJ% :NEXTI% 

• INPUTX ou INPUT "..."; X 
X:IV,SPV,SV 

Deve-se ressaltar que os mimeros podem ter ate seis digitos. Se 

X= IV, e possi'vel introduzir mimeros decimais, que serao trun- 

cados. Nao esqueca que mimeros inteiros para IVs devem estar 

contidos entre +/- 32767, caso contrario, um erro fatal ocor- 

rera. 

POKEX,Y 

X: IV, PI 

Y:IV,BI 

• SET(X, Y), RESET (X, Y); POINT (X, Y) 

X, Y: IV, BI (sendo que dentro da faixa legal para tais funcoes) 

• OUTX.Y 
X:BI 
Y:BIouIV 

• DEFUSR=X 
X: IV ou PI 

• USR(X) 
X: IV ou PI 

E util destacar que com os comandos acima (DEFURSR= X e 
USR(X)) um programa compilado pode chamar outro via URS 
ou tambe'm rotinas de som, por exemplo: 

40 DEFUSR=A%:USR(0) 

• CLS;REMoueEND 

£ preciso que haja um END em cada ponto que se quer retor- 
nar ao programa chamador do programa compilado (como um 
RETURN). No caso do chamador ser um programa do BASIC 
via USR, e antes do END que as varirfveis do programa Z80 
podem ser transfer idas para o programa em BASIC. 

• X=VAL(Y) 
X.IV 

Y:SV 

Inteiros negativos retornam zero, e inteiros acima de 32767 
retornam como — ( ). Por Exemplo: I%=VAL (AS), em que 
AS ="60000" retorna I%^-5536. 



Transferencias de variiveis 

Como certas funcoes do interpretador nao podem ser com- 
piladas (disco e cassete I/O, PRINTUSING, manipulacao de 
strings. . .), e interessante que ao se elaborar um programa mis- 
to - BASIC e Z80- haja um meio fdcil de se transferir dados 
em varidveis entre um programa e outro. Para isso, o Compiler/ 
BAS utiliza as seguintes instrucSes: 

• X=0+Y Y(BASIC) para X(Z80) 
X: IV ou SPV do programa Z80 

Y: IV ou SPV do programa BASIC 

• X=1*Y X(Z80) para Y(BASIC) 
X: IV ou SPV do programa Z80 

Y: IV ou SPV do programa BASIC 
(Obs.: ambas IVs ou ambas SPVs) 

Eis alguns esclarecimentos necessarios: se a variavel Y do 
BASIC ainda nao existir quando for realizado um X= 1*Y, o 
programa compilado usando as rotinas da ROM do micro a 
criara\ efetuando normalmente a transferencia; se, ao debugar 
o programa fonte em BASIC/CMP, for feito um X=Y, nao ha- 
veti interferencia na operacSo; as transferencias podem ocorrer 
em qualquer ponto do programa, embora em geral sejam feitas 
no initio e no fim (antes do END). 

No menu inicial, os parametros 

Ao se rodar o Compiler/BAS, este pede uma serie de parame- 
tros que vao dimensionar as areas das variaveis, do texto e do pro- 
grama e estabelecer seus respectivos inicio e fim na memoria. 
O compilador calcula as dreas reservadas de cima para baixo, a 
partir do topo da memoria (FFFFH-300 bytes de sistema proi- 
bidos). Acompanhe a seguir uma breve descricao da seqiiencia 
de parametros solicitados: 

a) Memoria para programa? 

Estimativa do tamanho (bytes) do programa compilado (area 
de programa). Como regra geral, estima-se em 1 500 bytes de 
Z80 para cada 1000 bytes de ocupacSb (nao ap6s a execucao) 
do programa fonte (BASIC/CMP). 

b) Numero de linhas a compilar? 

Estimativa do numero de linhas do programa fonte em BASIC/ 
CMP. 

c) Niimeros de GOTOs mais GOSUBs? 

Estimativa (superior) do numero de GOTOs e GOSUBs exis- 
tentes no programa fonte. 

d) Offset de memoria? 

Permite reservar espaco adicional no fim da memoria, fazendo 
com que o topo da RAM para o compilador nao seja FFFFH - 
300, mas FFFFH-300 menos o valor fornecido neste parame- 
tro. Se for 0, o topo permanece em FFFFH-300. Isto e muito 
util quando se quer usar varios programas compilados juntos 
que, e claro, nao poderao ocupar a mesma regiao; ao se compi- 
lar o segundo programa, por exemplo, dd-se um offset equiva- 
lente a drea efetiva (varidveis+programa+textos) do primeiro 
programa, o que permite ao compilador reservar uma area para 
ele, no topo da RAM. 

e) Bytes para texto? 

Estimativa do numero de caracteres a serem usados como tex- 
to no programa. Texto para o compilador 6 toda string entre 
aspas dentro de um PRINT. Por exemplo: PRINT "Pitrusgh". 

Neste ponto, o compilador vai procurar a primeira linha 
igual ou superior a linha # 1000 dentro do BASIC onde 
estao o Compiler/BAS e o programa fonte (de 1000 a 9999). 
Esta procura demora cerca de meio minuto, e isso e muito 
importante. (Quern quiser colocar o programa fonte antes 
do compilador para pegar logo a primeira linha BASIC para 
compilar, pode faze-lo, mas vai ter que se preocupar com a 
viiada dos enderecos e ponteiros internos de 32767 para 



— 32768 das variaveis inteiras usadas nos POKEs e PEEKs 
do programa, ap6s os 32 Kb de memoria inicial. Usando-se o 
BASIC Disco, depois do compilador a linha 1000 do programa 
fonte estara certamente ap6s o endereco 32767. 

&) Entry-Point ok (S/N)? 

E mostrado o Entry-Point do programa calculado ap6s as 4reas 
ja definidas e deve-se responder se esti ok ou nao. Caso queira- 
se determinar um outro Entry -Point, e" so responder nao que o 
menu pedira' o novo endereco decimal, e uma nova localizaca"o 
do programa compilado e calculada em funcSb do novo Entry- 
Point, 
h) Numero de SPVs com mimeros? 

numero de variaveis inteiras possi'veis e fixo em 26, de A% a 
Z%. O numero mihimo de SPVs possi'veis tambe'm 6 26 (de A 
a Z) se for respondido 0, mas existe a possibilidade de se che- 
gar a 286 combinando-se mimeros com letras. Se a resposta for 
1, estarao disponi'veis as variaveis de A a Z e de A0 a Z0, e 
assim sucessivamente ate 10: de A-Z, A0-Z0. . . A9-Z9. Por- 
tanto, ao se escolher as variaveis SPVs do programa fonte, de- 
ve-se faze-lo nesta seqiiencia para na"o desperdicar mem6ria, e 
jamais usar A, XI e Z9. Cada SPV usa quatro bytes e se for 
preciso utilizar todas as SPVs havera" o emprego de 1 144 bytes 
da memoria. 

i) Dimensao dos arrays de uma dimensSo ( 1 — D)? 

Seu linico limite e a membria disponivel. Como os arrays de 

uma e duas dimensQes (1-D/2-D) sao todos SPVs, cada uni- 

dade do array precisa de quatro bytes. 

j) Numero de SPAs de uma dimensao (1 -D)? 

IA( );2:A( )-B( );3A( )-B( >C( );26:A( ) a Z( ) 

k) Dimensao dos SPAs de duas dimensoes (2-D)? 

Sao sempre quadrados e o limite e a memoria. 

1) Numero de SPAs de duas dimensSes (2— D)? 

1 A( , ); 2 A( , )-B( , ); 5 A( , ) a E( , ); 26:A( , ) a Z( , ) 
m)Numero de variaveis strings? 

IAS 2A$,BS 3:A$,B$, C$ . . . 26A$,B$, . . . .,Z$ 

n) Comprimento maximo das SVs? 

De0a255. 

Agora o compilador di uma geral nos parametros e aguarda 
um sinal apos a revisSo do usuario e, finalmente comeca. Se for 
encontrado algum erro na sintaxe apresentada, o compilador 
para e mostra o numero da linha incorreta. A medida em que o 
trabalho e realizado, algumas informac5es sao exibidasna tela 
para permitir o acompanhamento da compilacSo. Se uma das 
tres areas (variaveis, programa e texto) se sobrepor a outra, 6 
indicado o erro. 

Ao terminar a compilacSo, e apresentado um mapa de ende- 
recos da memoria utilizada, com inicio e fim de todas as 2reas 
de IVs, SPVs, SPAs de 1-D, SPAs de 2-D, SVs e codigos de 
maquina com programa e textos. E, por fim, o compilador 
acaba, oferecendo duas opsoes: 

1 - RUN: executa o programa compilado e '}£ na memoria; 

2 — SAVE: mostra no vi'deo o DUMP necessirio para se salvar 
o programa da memoria, com os parametros de INICIO, 
ENTRY-POINT e FIM. Note-se que o comando DUMP s6 pode 
ser executado manualmente, pois na"o permite variaveis nos 
seus parametros (tanto em TRSDOS quanto em NEWDOS). 

Dicas para nao errar 

E fundamental seguir as regras }i descritas, pois o compila- 
dor nem sempre indica que ha erro na linha tal e, se houver 
erro e o programa for executado. . . Adeus! Justamente para 
o vi tar isso, leia com bastante atenca~o estas dicas: 

— Os comandos corretamente especificados, exceto em um 
caso de PRINT @ e de USR ( ), deverSo ter os mesmos resul- 
tados quando rodados em BASIC ou compilados. 

— Cuidado especial deve ser dado is expressQes de simples 
precisao (SPE), nao se esquecendo a ordem de execuca"o dos 
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QUASAR IV: UMA AVENTURA COMPILADA 



operadores aritmeticos, da esquerda para a direita. uso de 
parenteses pode facilitar muito. 

- As variaveis do vein ser inicializadas antes de serem usadas 
pela primeira vez, pois se nfo sSo zeradas, contem lixo. 

- Nao sao aceitos espasos (blanks) em meio aos comandos. 
Assim, 6 errado digitar A% =2, o correto € A% =2. 

- Multiplos comandos em uma mesma linha sao nonnalmente 
permitidos, desde que sejam separados por dois pontos ( : ), 
por exemplo : PRINT "Name" ; : INPUTA $ . 

- Para passar o valor de uma SPV para uma IV, utiliza-se a 
funcao INT( ). Exemplificando : X% = INT(A) ou entao X% 
=INT(A # RND(0)). 

- Muita cautela com os parametros: coisas muito esquisitas 
podem acontecer se eles forem mal dimensionados. 

- aproveite a velocidade dos comandos PRINT @ , SET, 
RESET e POKE para dar dnimo ao visual dos seus programas. 
Sem esquecer de incluir rotinas para controle da velocidade. 

- O compilador nao verifica se o resultado para uma IV e um 
inteiro: 40000 nao cabe em X% e, assim, nSo vai funcionar 
direito. 

- Um GOTO nfo deve ser colocado dentro de um FOR... 
NEXT. Alids, nao inventar na programa?So e sempre um bom 
conselho. 

- Rotinas de som sao sempre melhores se geradas em Assem- 
bler e nao compiladas. Mas, variando OUT255,X pode-se obter 
um resultado razoavel. 

- Melhor do que empregar o INKEYS e usar PEEK (endereco 
do teclado). Fazendo PEEK( 14400), tem-se: 1 -ENTER, 
2-CLEAR, 4-BREAK, 8-UP, 16-DOWN, 32-LEFT, 64-RIGHT, 
128-SPACE. . . (o manual do equipamento deve teros demais 
endere^s). 

E nada melhor do que testar tudo o que foi afirmado sobre 
o compiler/BAS com este exemplo de aplicacao, que roda 
umas 25 vezes mais rapido do que em BASIC: 

1000 INP r JT"Name";A$ 

1010 CLS:A%=0:GOTO1 100 

1020 X% = INT( 128*RND(0) ) : Y% = INT( 48*RND( ) 

) : RETURN 

1100 FORJ%=1TO30:OUT255,3:GOSUB1020:SET( 

X%,Y%) :OUT255, 1 :G0SUB1 020 :RESET( X% , Y% ) :N 

EXTJ% 

1110 IFA%=0THENPRINT 506 , " . " ; A$ ; " . " ; : A%= 

1 :GOT01 120ELSEPRINT@506," "; :A% 

«0 

1120 FORJ%=1TO70:OUT255,1 :FORK%=J%T077 :N 

EXTK%:OUT2 55, 1 :NEXTJ%'som e delay 

1130 J%=PEEK( 14400) :IFJ%<>4THEN1 1 00ELSEE 

ND 

10000 END 

Os parametros para compilaciio do exemplo acima sa"o: uns 500 
bytes para o programa (dd e sobra); 10 linhas; 10 GOs; offset 
zero; 100 bytes para texto; Entry -Point ok; SPVs com mime- 
ro igual a zero (o programa nem usa SPVs); DIM 1=D, nii- 
mero 1-D, DIM 2-D e numero 2-D, tudo zero; numero de 
SVs igual a 1 (usou-se so AS); comprimento de SVs igual a 
10 e... Pronto. 

Vamos agora a listagem 1. 



Listagem 1 - Compiler/BAS 



'Basic Compiler. «..•».» Retire Rems »•«■»»» Zorro/84 

i P0KEl6561,255«P0KE16562,255iP0KE16544,255tPOKE16545,253lCLEARi 
CLS:PRINT»960."Hr»or i» D i spoil i ve I : " , MEM-2580 ; :L ' -65536-HEM*2400 I 

1 i=INT(L >/256>: POKE 16562. I ' IPOKE 16561 , L > -256« I ' : GOTO 14? 

2 POKEM,PlPRINTP,»rl-rt+HRETURN 

3 PC=PEEK(a)«PN-PEEK<a*l)tO-a*HIFPC-32THEN3ELSEIFPC-OC-2iRETURN 
ELSERETURN 'peek proximo-, cod 190* basic 

4 PC»PEEK(«)ia-(J*liRETURN 

5 IFPC<650RPO90THEN8ELSERETURN 

6 IFPN< >37THEN8ELSE«-«+llRETURN 

7 IFCD9990RCK10000THENRETURN 

8 PRINTiPRINT"ERROR LINE H"|LKL> lEND 

9 PRINTi40. TIME*; :RETURN 

10 I-PEEK(FNA<Q*2>>+256«PEEK<FNA<«*3>>lRETURN 

11 'Rotinas de simples precisao 

12 G0SUB3:G0SUB5iWl-PC-65tIFPN<48ANDPN>57AN0PNO213ANDPNO40ANDC 
FOITHENO 

13 IFPN>47ANDPN<58MI»PN-47«G0SUB3ELSEHI-0 

14 IFPN-213Zl=l:RETURN 

15 IFPN = 40G0SUB3:G0SUB3tG0SUB5:U2»PC -65IG0SUB6IG0SUB3ELSEIFCF-1Z 
1-HRETURN 

16 IFPC< >41ANDPC< )44THEN8 

17 IFPC=41Zl«2iRETURN 

18 IFPC-44G0SUB3iG0SUB5«V3«PC-65«IFVK00RVl>-NTTHEN8ELSEG0SUB6iZ 
1-3IG0SUB3HFPC< >410R<PN< >213ANDCF< >1 )THEN8ELSERETURN 

19 'Calculo Endereco 

20 0NZlG0SUB2i,22,23iRETURN 

21 IFMI>ISTHEN8ELSECl-VF+(Ul*HI«26)»4iG0SUB83lG0T0112 

22 V7-Ul:V8»V2iG0T025 

23 V7«VHV8»W2lV9-V3tG0T026 
«?4 'Arrays 

25 V0*V8:G0SUB117>G0SUB114iCl-UA+V7ND0»4:G0SUB83>G0SUBllllG0T011 
3 'i-d 

26 U0-V9«G0SUB117tp=^lsGOSUB2iCl-UD+4»NT»DTaOT+2»W7»0TlG0SUB83iG 
0SUBlll:G0SUB113tP-94:G0SUB2iP=35lG0SUB2lP»86lG0SUB2iV0-V8iG0SUB 
117:B0SUB114:G0T0U3 '2-d 

27 'Avaliacao de Expressoes de Simples Precisao 

28 G0SUB3:JFPC< >206G0T030 

29 El»OiDl«0»G0SUB112:GOSUB124iG0SUB124«GOTO35 'sinal - 

30 G0SUB41 

31 G0SUB3IIFO20RPO410RPC-580RPC-590RPO2120RPC-2130RPC-2140RPC 
«1410RPC=202THENRETURN 'se ter*(nacao, return 

32 G0SUB128 '■ove de C4121H) p/ stack, valor interred i ar I o 

33 'por nova varlavel em 4121H, executa 

34 IFPC°2O5G0SUB3iG0SUB41:GOSU8129iG0SUB131iG0TO31 'soma 

35 IFPC°206G0SUB3iG0SUB41:G0SUB129>G0SUB132iG0T031 'subtrai 

36 IFPC°207GOSUB3:G0SUB4i:G0SUB129iG0SU6133iG0TO31 'aultiplica 

37 IFPC-208G0SUB3iG0SUB41tG0SUB129tG08UB134i80T031 'divide 

38 1FPC=209Q0SUB3:G0SUB41 : GOSUB 129 t GOSUB 1 35 : G0T031ELSE8 'exp 

40 'Rotina p/ tratar constantes, variaveis e funcoes em expresso 
es de staples precisao e coloca-las na area de 4121H 

41 IF<PC<58ANDPO47)0RPC=46G0SUB86tRETURN 'converte constantes p 
/ representacao dr 4 bytes 

42 IFPC-222G0SUB3>1FPC< >40THEN8ELSEG0SUB3l IFPC< >48THEN8ELSEG0SUB 
3UFPC< >41THENBELSEP»205iG0SUB2tP»240:G0SUB2iP-20iG0T02 *Rnd(0» 

43 IFCPC>220ANDPC<229>0RPC-2170RrX-40T>IEN3«fcl-SE00SUB3 'funcao Ou 
erro 

44 U4-PC-65iIFPN>47AN0PN<5BTHENrlE-PN-47iG0SUB3«Z2-ltG0T049ELSEIF 
PN< >40AN0PN< >37THENME-0iZ2«HG0T049ELSEIFPN-37THENZ2-4lD0SUB3iG0 
T049 

45 G0SUB3:G0SUB3:G0SUB5>U5-PC-65>G0SUB6iG0SUB3 

46 IFPC<)41ANDPC< >*4THTN8 

47 IFPC=41Z2»2 '1-d array 

48 IFPC»44GOSUB3iG0SUB5iW6»PC-65iGOSUB6iZ2"3tG0SUB3iIFPC< >41THEN 
8 '2-d 

49 0NZ2G0TO5O,51,52,53 

50 IFME>ISTHEN8ELSECl-UF+<V4+ME«26)«4lG0SUB83«G0SUB112lG0T0127 

51 V7-V4:V8-V5:G0SUB25iG0T0127 

52 V 7 ,- u A t VB = V'i I V9 = y 6 1 GOSUB26 1 G0T0127 

53 UO'U4iG0SUB117iP>34iG0SUB2iP-33lGOSUB2iP-65iG0SUB2iP>2O5iGOSU 
B2>P'204iGOSUB2iPmlO>OOT02 'converte variaveis Intelras em slapl 
es precisao 

54 IFPO40THEN64ELSEQ-0+1 *< 

56 IFPC-221THEN65 *«sr 

57 IFPC-217THEN66 'abs 

58 IFPC-223THEN67 'log 

59 IFPC-224THEN68 'exp 

60 IFP0225THEN69 'cos 

61 IFPC=226THEN70 'sen 

62 IFPC=227THEN71 'tan 

63 IFPC-228THEN72 'atn 

64 G0SUB28IG0T073 

65 GOSU828iG0SUB137iG0T073 

66 G0SUB28iG0SUB138>G0T073 

67 G05UB28iG0SUB139iG0T073 

68 GOSUB 28: GOSUB 140: GOT 07 3 

69 G0SU828IG0SUB14UG0T073 

70 B0SUB28IG0SUB142IGOTO73 
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NAO PERCA A PROXIMA EDICAO DE MICRO SISTEMAS 



• CBBSs — como funcionam, o que oferecem, quais os existentes etc. • Repor- 
tagem sobre clubes de usuarios e pontos de encontros • Tecnicas de Rede PERT 
para Apple e Sinclair • Para TRS-80: continuacao do MBDADOS • No Banco de 
Software: Controle de congelados, Conta bancaria, Funcoes no CP/M e muito 
mais. 



TI.QUER 

DIZERTBCLADO 
INTEUGENTE. 



TI e o mais novo 
microcomputador da 
Unitron. 

Ele tern um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto e, 



um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Veia o que este 
teclado pode f azer : 

Um. Programacao 
de func.6es especiais 



em qualquer tecla. 

Dois. Redefinicao 
das posic. 6es da tecla 
pelo_pr6prio usuario. 

Tres.Modode 
opera^ao igual a 
maquina de escrever. 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste automatico 
ao ligar. 

venha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Tecnico Clappy no 
seu escritono. 

Alias, na Clappy 
voce encontra tudo o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
tos, softwares. Alem 
de cursos proprios de 
programacao e 
operacao, assistencia 
tecnica, implantacao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
comerciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
f inanceira, processa- 
mento de dados, 
mala direta, cadastro 
e cpntrole financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode iazer 
um preco melhor do 
que a Clappy. 

unitron 
Clappy 

Centro: A v. Rio Branco, 12 - 

loja e sobreloja. 

Tel: (021)253-3395 

Centro: R. Sete de Setembro, 

88- loja Q (galena) 

Tel.: (021)222-5517/222-5721 

Copacabana: Rua Pompeu 

Loureiro, 99. 

Tel: (021)257-4398/236-7175 

Aberta diariamente das 
10 as 20 horas e aos 
sabados das 9 as 14 horas. 
Estacionamento proprio. 

Assistencia Tecnica : 
234-9929/234-1015 

Entreeamos em todo 
Brasil pelo reembolso Vang. 



QUASAR IV: UMA AVENTURA COMPILADA 



71 G0SUB28I GOSUB 1 43 1G0T073 

72 Q0SU82BIG0SUB144 

73 IFPC041THENBELSERETURN 

75 *•" Rotinas de Conversao •» 

76 'Calculo de Lsb/Msb de string miner ico lnt«lro (Ascii) 

77 C*-""iIFPC«206THENPC«45tG0SUBBlELSEG0SUB80UFCS-""THENCl — HR 
ETURN 

78 C1»VAL(C«> 

79 Dl«Ci/256iEl-Cl-Dls256iIFCK0THENDl-Dl*256iCl— CliRETURNELSER 

ETURN 

80 IFPC<480RPO57THENRETURN 

81 C»-CS*CHR%(PC>lG0SUB3lG0T080 

82 'Calculo de enderecos aciM de 32K 

83 Dl -CI /'256iEl-Cl-Dl»256iDi»Dl*256i RETURN 

84 Z-VT+V1+V1 «P 1-Z/256IP-Z-P1 "256 iPl-P 1*2561 RETURN 

85 'Conversao de string nuacrlco ea tuples preclsao, 4 bytes 

86 Cf-CHRt(PC) 

87 GOSUB3HF(PC<58ANDPC>47)0RPC-46C»-CS+CHR*.(PC)iG0T087 

88 R-VAL(C* )iG0SUBB9iEl-33«Dl=65iG0SUB112iCl-B3«G0SUB116tP-35iG0 
SUB2iCl-82iG0SU8116iP"35«G0SUB2«Cl-BUG0SUB116iP-35iG0SUB2iCl-BE 
iG0SUBU6t8»«-l:RETURN 

89 IFR»0THENBE-0iBl»0iB2«0i83»0iRETURN 

90 Yl-HY2-2iN«l«IFYl>RTHEN93 

91 IFY2(-RTHENYl»Yl*YliY2«Y2+Y2tN-N+HG0T091ELSE94 

93 IFR(YlTHENYl-Yl/2lY2»Y2/2lN-N-HG0T093 

94 BE-N*128iXl-0tR"R-YUG0SUB97iBl-B 

95 G0SUB98iXl-XiG0SUB97tB2-8 

96 G0SUB98IX1-XIG0SUB97IB3-B IRETURN 

97 G0SU898 1 X2-X I G0SUB98 x X3-X I G0SUB98 i X4-X i G0SUB98 1 X5-X I GOSUB 98 1 X 
6-XiG0SUB98iX7«XlG0SUB98lXB-XlB»Xl*Xl*X2iB-B*B*X3iB«8*B*X4iB"B*8 
♦X5iB«8»8*X6iB=B*8*X7:8=B»B»X8:RETURN 

9B Yl«Yl/2iRT»R-YlUFRT<0X«0«RETURNtELSEX-ltR-RTiRETURN 

99 'Poke string na area teaporaria 

100 Cl»HFiG0SUB83iG0SUB112iNN-l 

101 IFPO34G0T0109 

102 GOSUB 108 

103 IFFP«lANDPEEK(a)-32a-a*l»PC-32tNN-NN*HG0T0105 

104 G0SUB3INN-NN+1 

105 IFFP-1AND(PC"340RC«2)G0T0109 

106 IFFP"0AND(PC-580RC»2>G0T0109 

107 G0T0102 

108 C1-PC«G0SUB116HFPC< >0THENP-35iG0T02ELSERETURN 

109 a-Q-iiC-0:PC-3»G0SUB108iIFNN>SLTHENPRINTiPRINT~STRING TOO L0 
NG"iG0T08«ELSERETURN 

110 '•• Codlgos de aaquina ♦ usados •" 

111 P-17lGOSUB2«P-EUGOSUB2iP-01lBOT02 'L0 DE.E1.D1 

112 P-33>G0SUB2iP,-EHG0SUB2>P«Dl>G0T02 'L0 HL,E1,D1 

113 P-251G0T02 'ADD HL.DE 

114 P-4HGOSUB2IP-4UG0TO2 '2x ADO HL.HL 

115 P-235tG0T02 'EX DE.HL 

116 P»54iG0SUB2iP»CHG0T02 'LO <HL),C1 

117 Cl-VT*V0*V0«G0SUB83»P=42iG0SUB2iP"El«G0SUB2iP»DliG0T02 'LD H 

L.C1 

118 P-42tGOSUB2iGOSUB84iG0SUB2iP-Pl«GOTO2 'LD HL,<P1P) 

119 P-34:G0SUB2iG0SUB84iG0SUB2iP-PHG0T02 'LD (PIP).HL 

120 P«195iG0SUB2iP-EliG0SU82tP-Dl«Q0T02 'JP E1D1 

121 P"183iG0SUB2iP-237iB0SUB2iP-B2«G0T02 'OR A, SBC HL.DE 

122 P-40iG0SUB2iP»3tG0T02 'JR Z,3 

123 P-2251G0T02 'POP HL 

124 P-229IG0T02 'PUSH HL 

125 P«209iG0T02 'POP DE 

126 P-213IG0T02 'PUSH DE 

127 P-205iGOSUB2iP-177iGOSUB2iP-9tGOT02 '<4121H)-var iavel 

128 P-205iG0SUB2»P»164iG0SU82iP-9iG0T02 '(St ack,)»(4121H> 

129 P-193iG0SUB2iG0T0125 'POP BC, POP DE 

130 'Rot mas Arltaetlcas e Funcoes 

131 P«205«G0SUB2>P"22iG0SUB2iP-7iG0T02 

132 P«205iGOSUB2iP-19»GOSU82iP"7iGOT02 

133 P-205iGOSUB2iP«7HGOSUB2tP-8iGOT02 

134 P-205iG0SU82iP»162»G0SUB2iP»8iG0T02 

135 P-205tG0SUB2iP-247iG0SUB2iP-19iG0T02 

136 P-205«G0SUB3iP"12iGOSUB2i IP«10«G0T02 

137 P-205iG0SUB2tP-231«G0SUB2«P-19iG0T02 

138 P-205iG0SUB2«P-239iGOSUB2iP-10iGOSUB2iP-205iG0SUB2iP-119iG0S 

UB2IP-91G0T02 

139 P-205"G0SUB2iP-9iG0SUB2tP-8iG0T02 

140 P-205iG0SUB2iP-57iG0SUB2«P-20iG0T02 

141 P-20SiG0SUB2iP-65lG0SUB2iP-21 IG0T02 

142 P-205IG0SUB2IP-7HG0SUB2IP-2HG0T02 

143 P-205<G0SUB2tP«168iG0SUB2iP-21 IG0T02 

144 P-205iG0SUB2iP«189iG0SUB2iP-21 IG0T02 

145 P»205iGOSUB2iP-27iGOSUB2lP-2»GOT02 

146 P«62«GOSUB2iP»4iGOSUB2lP-50iGOSUB2«P-175:GOSUB2«P-64lGOT02 

147 P-205iGOSUB2«P-203iGOSUB2iP-9iGOT02 

148 '•• Entrada principal 

149 CLEAR80:REST0REiDEFINTA-«,S-*.ZlPRINTa0, "MICRO BASIC COHPILE 
R~,TAB(40)"NEUD0B2.0 

"TAB<25)"BY Zorro /84 

Program lines! 1000 a 9999"iF0RPC«1T0300iNEXTPCiPRINT" 

Para instrucoes, lela Micro Slsteaas"«FORP-lT0300iNEXTPtPRINT 

150 M-0!a-0iPN-0iC-0iCl"0«Vl«0lL-0iJ"0«El-0«Dl-0lDH»0iDN-0 

151 DEF FNA(Y)-Y+(Y>32767)»65536 

152 INPUT"NUMER0 DE BYTES P/ PROGRAMA (TOP MEM)"|ZIHNPUT"NUMERO 
DE BASIC LINES MAXIMO A C0MPILAR",0« INPUT"NUM. MAX. DE GOTO 'S*G 

OSUB 'S"|K 

153 DIMLl<0),A<K),L2(0>,D(25),E(25),SM(10)iT*»" • " 

154 MR-08INPUT"MEM0RY OFFSET", 1 1 INPUT"BYTES PARA TEXT0",PAtPB— P 

A-300-HRR-65536 

133 K "0«t "PECK « 16348 »*236"PEEK( 16349 >»tl9—ri*f'B-M»t«ia9fl4«PlrtNT-P 

rocurando la llnha >-1000. . .", i«-FNA(Y> 

156 GOSUB 10lPRINT8B00,I| I IFI>-1000THEN157ELSEU-FNA( PEEK <B)*256»P 

EEK ( FNA ( Q* 1 ) > > 1G0T0156 

157 PRINT"OK"iPRINT"Entry point i"iRR+MS, I INPUT"0K (S/N>",C»iIFC* 
-"N"THENINPUT"N0V0 ENTRY POINT (dec ) " j 1 1 1 I-RR+M8-I |l IFK -0THEN15 
7ELSEMS-MS-I IPB-PB-I 

158 PT-PBiMC-MSiM»MStINPUT"SINGLE PRECISIONi A,A0, . . .Ax-1 , . . . A9, 

...,Z,Z0 Z9(X(«10>"iIS«INPUT"l-D ARRAY DIMENSION A(0-x>. X> 

-0",D0UNPUT"NUMER0 DE POSSIVEIS 1-0 VAR ARRAYS ( A,B , . . .x> .X(«26 
."»N0 

159 INPUT"2-D ARRAY SQUARE OIMENSION A(0-x,0-x). X>-0."iDTi INPUT 



'NUMERO DE 2-D SQUARE ARRAYS (A,B...x>. X<-26."iNT: INPUT "NUMERO 
OE VARIAVEIS STRING (As.B*. . . .Z*> ( <«26> .",NS« INPUT"STRING-VAR L 
ENGTH. (<256>.",SL 

160 VT — 2n26*MSIVF--4»26»i(l»-IS>+VTlVA— 4«N0»D0*VF«VD«-4«NT«DT«DT 

-2.NTnDT*VAiVS— NS»(SL+i>*VD»VN«-(SL*4)*VS 

161 CLSiPRINTSTRING»<64,179>,iPRINT325.'i»» RELATORIO ..":PR INT'N 
uacros SPV ad Ic lona I s»"»TAB(32>IS," 

Dim de 1-D arraysi",TAB(32OD0 t " 
Dm. de 2-D arrayst"jTAB(32)DT»~ 
String lengthi",TAB(32>SL 

162 PRINT"No de var . 1-Dlai" jTAB(32>NO," 
Variaveis 2-Dlai"|TAB(32)NT," 

Var iaveis str ings«"(TAB(32)NSt" 

Textos, area * start i"jTAB (32>PAJ" * "»PT 

163 PRINT"Start of machine code«"|TAB(32)MC;" 
Integer * single var . i"|TAB(32)VT,"«" l VF," 
Start of 1-0 ft 2-D arraysi"iTAB(32>VA>"«" j VD;" 
Start of string stor . i",TAB (32>VS," 
Temporary storagei"|TAB(32>VN 

164 IF65536*VN<»256»PEEK(16562>*PEEK( 16561 )THENPRINT"MEM0RIA RES 
ERVADA OVERLAP BASIC"«END 

165 PRINTa960,"APERTE..."i»IFINKEYi-""THEN165ELSECLSiP0KE16916.1 
iPRINTSTRING»(64,95)iiPRINT30,"( ZORRO BASIC COMPILER >"» 

166 PRINTiPRINTiPRINT'Subrot i nasi"iPRINT"( " jH,"> . ."» 

167 Cl-H+3iG0SU883iXH-0l: XL-El iCl-M+37iG0SUB83i GOSUB 120 

168 DATA42, 32, 64. 54, 63, 35, 54. 32, 35, 34, 32, 64, 33, 232, 65, 6. 240, 205, 
217,5,245,72,6,0,9,54,0,33,232,65,241,216,175,201 

169 F0RI-1T0341READP«G0SUB2«NEXTI 

170 IFNT>0THENG0SUB363ELSEG0SUB372 

171 G0SUB9 

172 L-L*liMl-FNA(PEEK<a)tPEEK(Q+l)»256):Ll(L)-PEEK(«*2)*PEEK(«*3 

>«256 

173 IFL1(L>>9999THENL=L-UG0T0201 

174 PRINTa960,"»l"|Ll(L>,"<"»Mj">.."j«L2<L>-Mi0«Q+4 

175 C-01G0SUB3UFC-2THEN200 

176 IFPC-1330RPC-1340RPC»1360R(PO137AN0PC<140>0RPC-1420RPC-1440 
RPC-1480R(PC>149ANDPC(176ANDPCO160>0R(PC>178AN0PC(189)0R(PC>189 
ANDPC(202ANDPCO193>0RPC»2030RPC=2040RPC-=2100RPC=211THEN8 'erro 

177 IFPC-2150R(PC>216ANDPC(221)0R(PO228ANDPC(251)THEN8 'erro 

178 IFPC-140THENG0SUB3ELSEIFPC-160THENPRINT" Out i"i «G0SUB374tG0S 
UB379:G0T0195 'Out 

179 IFPC>64ANDPC(91ANDPN=37Q-a-liPRlNT" Let XI", iG0SUB213iG0T0195 
'integer let 

1BO 'Siaples Preclsao Let 

181 IFPC>64ANDPC<91ANDPN<>37ANDPN036a«Q-l:PRINT" Let I I"|«G0SUB1 
2 1 GOSUB 3 1 GOSUB 3 1 IF ( PC-49ANDPN-207 ) OR ( PC-48ANDPN-205) G0SUB309 : GOT 
0195ELSEa-a-2«G0SUB3UFPCO213THEN8ELSEG0SUB28«G0SUB20«G0SUB147i 

GOTO 195 

182 IFPC>64ANDPC<91ANDPN-36a-Q-HPRINT" Let %'" t IG0SUB314IG0T0195 
'string let 

183 IFPC-178THENPRINT" Pr int t*'| iG0SUB232iG0T0195ELSEIFPC-176THEN 
PRINT" Def t",:GOSUB38UG0SUB379iGOTO195 'print, def 

184 IFPC-141THENPRINT" Gotoi"r «G0SUB303«G0T0195ELSEIFPC-193THENP 
RINT" Usrs"»tGOSUB385«GOSUB379»G0T0195 'goto, usr 

IBS IFPC-143PRINT" If «"» iGOSUB263iG0TOI95 ' i f. -then. .else 

186 IFPC-145PRINT" Gosubt", »GOSUB305«G0TO195 'gosub 

187 IFPC-146PRINT" Ret t", SGOSUB307IGOT0195 'return 

188 IFPC-132THENPRINT" Cls»"i iP»205»G0SUB2»P»201 :G0SUB2»P=UGOSU 
B2IG0SUB3I IFPC( >58ANDC< >2THEN8ELSE195 'els 

189 IFPC-137PRINT" Input •"> «G0SUB254JG0SUB379sG0TO195 'Input 

190 IFPC-129PRINT" For i"i iGOSUB332:GOT0195 'for 

191 IFPC-135PRINT" Next f, IG0SUB342JG0T0195 'next 

192 IFPC-1300RPC-131PRINT" Set 8 Resi"j «G0SUB344iG0TO195 'set S 
reset 

193 IFPC-177PRINT" Pokei"i :G0SUB357iG0T0195 'poke 

194 IFPC-128PRINT" Endi"» iP-205iG0SUB2iP-157«G0SUB2sP-10:G0SUB2i 

P>20HG0SUB2iG0SUB3 'end 

195 Cl-PEEK(fl-lMIFF0<>0THEN196ELSEIFCl-58THENPRINTTS|iG0T0175EL 

SEIFC1-149THENPRINT" Else"i IG0T0175ELSE20O 

196 IFCl-58THENPRINTT»iiG0T0175ELSEIFCl«149THENCl-MfG0SUB79:PRIN 
T" E1se"pU-SM(F0)iF0-F0-l:IFPEEK(I)-40THENI-I+3iG0T0197ELSEI-I+ 
liG0SUB198iIFPEEK(I+2>-2500RPEEK(I+2>«242THENI-I*3iG0T0197ELSE17 
5ELSEIFC1O0THENPRINT" Then «"» «a-a-HG0T0175ELSE 199 

197 G0SUB198«G0T0175 

19B POKEI.EliPOKEI+l.DltRETURN 

199 IFF0O0THENCl»MiG0SUB79«F0RVl-lT0F0U-SM(vl)«IFPEEK(I)-40THE 
NI-I*3iG0SUB198iNEXTvlELSEI«I*UG0SUB198JlFPEEK(I*2)-2500RPEEK(I 
♦2>-242THENI-I*3«G08UB198«NEXTvlELSENEXTVl 'Ajuste de Else 

200 F0-0ia-Ml«PRINT«G0T017i 'proxlaa llnha 

201 PRINTiG0SUB9iPRINTa960,"AJUSTAND0 JUMP ADDRESSES . . ."|UFK 
-OGOT0206 

202 F0RI"1T0KIDN-PEEK(A(I)>+256«PEEK(A(I>*1)«DH=0 

203 FORJ-lTOLt IFDN-LK J>THENDH-L2( J) :PRINTL1 ( J) : 

204 NEXTJiCl-DHiG0SUB83lP0KEA(I>,EllP0KEA(I>*l,DUNEXTI 

205 'Final izacao ■» 

206 PRINTiDEFUSR0-MCiRl»RR*MCiR2"RR*l*MlR3-RR+WNiR4-RR+PB 'prepa 

ra DefusrO p/ execucao 

207 PRINTiPRINT"Inlclo da area Oil var iaveis. . ."«TAB(32>R3:PR INT 
"Inlcio do prograaa..."|TAB(32)RHPRINT"FI» do prograaa. . .",TAB( 
32>R2iPRINT"Fia da area de textos. . ."iTAB(32)R4 

208 IFM>PTTHENPRINT"ERROt PROGRAMA E TEXTO OVERLAP" 

209 PRINT"(S) TO SAVE OR <R> TO RUN MACHINE CODE " 

210 Al-INKEYStIFA»-""THEN210ELSEIFA»-"R"THENCLSiP0KE16916,0:X-US 

R(0>iG0T0209 

211 IFA*O"S"THEN209ELSEPRINTtPRINT"Para gravar. execute ea Disk 
-Basic aodo dlreto: 

CM0'0UMP,Filenaae."|Rl l "."|R4|~,",Rl«PRINTtPRINT"Iniclo da area 
de aeaorla reservada para as variaveis «"|R3|" 

(TrsDos Baslci Heaory Size ou NenDos 8aslci Hiaea)":END 

212 'Operacocs coa intelros 

213 G0SUB3«G0SUB5iG0SUB6«VloPC-65!G0SUB3UFPC<>213THEN8 

214 G0BUB3lIF(PC»49AN0PN-207)0R(PC»48ANDPN»205)THEN227 

215 IFPC«216G0SUB3iG0SUB28iG0SUB146lP-205«G0SUB2iP-61iG0SUB2«P-l 
HG0SUB2UFPCO41THEN8ELSEG0SUB3IG0T0119 'int 

216 IFPC(>229THEN218ELSEV3-VHG0SUB3«G0SUB3«G0SUB77:IFC1=-1THENV 
l-PC-65iG0SUB5iG0SU86iG0SUB3«G0SUBl 18 tP-126tG0SUB2ELSEP=5Bi GOSUB 
2IP-EUG0SUB2IP-D1IG0SU82 

217 P-38lG0SUB2»P-0iG0SUB2iP-lll«G0SUB2iVl-V3tG0SUB119iG0T03 'pe 

ek 

218 IFPC-198THENV3-VliG0SUB344iP-42iG0SUB2«P-33«G0SUB2lP-65iG0SU 

82lVl-V3iGOT0119ELSEIFPC-245ANDPN=40THEN400 'point 



219 V2-Vi:0-a l:G0SIIB38lFPC=206ANDPN>47ANDPN<58G0SUB77tG0SUB1128 
G0T02?1ELSEIFPC-206THENE1»0»D1-0IG0SUB112«G0T0221 

220 G0SUB77:)FCi( >- 1G0SUB1 12ELSEV1 -PC-65«G0SUB5>G0SU86lG0SUBl 18t 
GOSUB. T 

2il IFPC-580Rn»2Vl«V2«G0T0119 

222 IFPC»20AANDPN>47ANDPN<58SG=205ELSESG»PCsG0SUB3 

223 GOSUB225UFSG-2O5G0SUB113ELSEG0SUB121 

224 GOT0221 

225 G0SUB77:irCl< > 1G0T01 1 1ELSEV1»PC-65«G0SUB5IG0SUB6IP-2371G0SU 
B2»P"V1 IGOSUB2»OO«TUB841U0SUB^«P*ri s(!OBUII?'00T0-3 

226 'Transferenc la de variaveis inteiras, basic X usr 

227 1FPC«49ANDPN»207CM»1ELSECM»0 

22B a«Q*l!GOSUB3«MF=VN:GOSUB100ia-Q»l«GOSUB112:P-205iGOSUB2iP«13 
»GOSUB?«P=38:GOSUB2 

229 IFCM»0P-26iG0SUB2»P»lH«G0SUB2JP-19«G0SUB2«P-26xG0SUB2«P«103 
iG0SUB2:G0T0119 'Basic p/ Z80 

230 GOSUB 118«P«125»G0SUB2«P«18iG0SUB2tp«19iG0SU82«P-124»G0SUB2iP 
■18IG0T02 'Z80 p/ Basic 

231 'Print 

232 GOSUB3: IFPC-580RC-2P1-13IG0T0251 

233 IFPC< )64ANDPC< >96THEN244ELSEG0SUB3 

234 'Prlnta 

235 IFPC<58a-a-l«G0SUB240lCl»Cl*15360tG0SUB3lG0SUB79iG0SUB112ELS 
EVl«PC-65iG0SUB5:G0SUB6<G0SUB3sG0SUB3iG0SUB118sDl-60iEl-0iG0SUBl 
1UG0SUB113 

236 IFPC( >247P-34:G0SUB2:P»32:G0SUB2iP-64iG0SUB2iG0T0244ELSEG0SU 
B3:IFPCO40THEN8ELSEG0SUB240tG0SUB116 

237 GOSUB3I IFPC-2Q5G0SUB3I IFPC< >247THEN8ELSEP-35iG0SUB2«G0T0236 

238 IFPC-59G0SUB3 

239 IFPC< >58ANDC< >2THENBELSERETURN 

240 C*-"" 

241 G0SUB3«IFPC( >41ANDPC< >44THENC»-C**CHR»(PC ) • IFPC<480RPC >57THE 
N8ELSEG0T0241 

242 C1»VAL<C*) "RETURN 

243 'Expressao Siaples Preclsao ft Print String 

244 IFPC>64ANDPC(91ANDPN«36a-a*l:Vl»PC-65lCl-VS*Vl»(SL+l)iG0SUB2 
52SG0T0247 

245 IFPC«34THENG0SUB39O«GOTO247 

246 a-a-liG0SUB28iG0SUB146iP>2O5iG0SUB2lP-189iG0SUB2iP-15lGOSUB2 
>P-62iG0SUB2>P«3:G0SUB2>P-18iG0SUB2>G0SUB145 'print siaples prcc 
i sao 

T47 1FPC-44THEN8 

248 IFPC-S9G0SUB3I IFPC< >5BANDC< >2THEN244ELSERETURN 

249 IFPC-580RC-2P1-13IG0T02S1 
^•50 GOTOB 

251 P»62«G0SUB2»P=PHG0SUB2«P»205«G0SUB2iP"58«G0SUB2iP-3«G0T02 ' 
srrol 1 

252 G0SUB83xG0SUB112sGOSUB145iGOSUB3«IFPC»34G0T03ELSERETURN 'pr I 
nt string 

253 'INPUT 

254 G0SUB3> IFPC-34THENG0SUB390I IFPC< >59THENBELSE254ELSEG0SUB5 

255 P-205»G0SU82iP»XL«G0SUB2:P»XH:G0SUB2«IFPN( )36THEN259 

256 Vl-PC-65tCl-VS*Vl»(SL*l > «G0SIIB83tG0SUBlll 

257 P-126»G0SUB2:P=183»G0SUB2:P-40iG0SUB2iP-5iG0SUB2iP»18iG0SUB2 
:P-35iG0SUB2tP>19iG0SUB2tP>>24iG0SUB2!P-247iG0SUB2lP>62iG0SUB2>P> 
3:G0SUB2>P-18>G0SUB? 

258 Q=a.l:00T03 

259 P»205«G0SUB2«P=108:G0SUB2«P=14iG0SUB2 

260 IFPN-37P=205iG0SUB2tP-127lG0SUB2iP=10iG0SUB2iVl-PC-65tG0SUB8 
4iEl-P«Dl»Pl«G0SUB112«P-237tG0SUB2iP-75tG0SUB2«P«33tG0SUB2iP«65i 
G0SUB2:P«113«G0SUB2iP»35iG0SUB2«P-112iG0SUB2tG0SUB3iG0T03 

261 a-a-liCFol>G0SUB12<CF°0sP>58>G0SUB2iP«175<G0SUB2>P-64iG0SUB2 
xp-222:GOSUB2:P»4:GOSUB2«GOSUB122sP=205«GOSUB2tP-204«OOSUB2lP"10 
s GOSUB2 s GOSUB20 : GOSUB 1 47 1 G0T03 

262 'Integer If-Then Rot ma 

263 G0SUB3»IFPN< >37THEN279ELSEG0SUB6iVl-PC-65iG0SUB118«G0SIJBl 15: 
GOSUB 3 

264 lFPC-21^ANDPN»2130RPC-213ANDPN»212Ul-lsa»a*HG0T0270 

265 IFPC»214ANDPN-2130RPC-213ANDPN=214Ul-2ta-a*UG0T0270 

266 IFPO212AN0PN»2140RPO214ANDPN-212Ul-3i0=a»l IG0T0270 

267 IFPC«212U1«5 

268 IFPC-214U1-4 

269 IFPC»213Ut=6 

270 G0SUB3»IFPC<580RPC»206G0SUB77tG0SUB112ELSEG0SUB5iG0SUB6iVI-P 
C - 65 » GOSUB t IlW GOSUB 3 

27 1 IF'PC»202ANDPN<5RANDFN>47)ORPC«141THENG0SUB3iPRINT' Then«i"i 
ELSE IFPC-20?ANDPN=141THENG0SUB3iG0SUB3ELSEIFPC-202THENG0SUB3« GOT 
0275ELSE8 

272 B0SUB77IG0SUB7 

273 G0SUB274U-0SG0T0289 

274 P-205sG0SUB?!P-5':G0SUB2:P»10«G0T02 

275 G0SUB274 

276 FO-FO* 1 1 SMt FO > -M« IFWK 4THENU1 «UH 3ELSEUI -Ul -3 

277 I-UG0T0289 

278 'Single Precision If-Then rot ma 

279 a»a-l:G0SUB2B:G0SUBirB 

.'HO irPC-^12ANDPH=^130Rrc = 2t.1ANDPN«212Wt-i:a-a + l«G0TO286 

281 IFPC«?14ANDPN«?130RPC«213ANDPN»214Ul"2ta«a*l XG0T02B6 

2B2 IFPC-£12ANDPN«214ORPC"214ANDPN«212Ul'=3:a-a*i»G0TO286 

283 IFPC-212U1-5 

.'84 !FPC-214UI=4 

205 IFPC«213UI=6 

i-B6 G0SUB2BtG0SUBl«9sr.0SUBI36 

2B7 IF«PC-202AMDPN<58ANDFN>47)0RPC»1«1THCNG0SI1B3JPRINT" Thentl:"i 

ELSEIFPC-r02ANDPN-141THENG0SUB3!G05UB3ELSEIFPC=202THENG0SUB3«G0T 

0276FL3E0 

288 1=0«G0SUB77:G0SUB7 

T09 D=Di:E»EU0NUlGOTO290.291 ,272,294,293,295 

?90 0OSUB296IG0TO299 

291 G0SUB?96»G0TO297 

292 G0T0298 

293 r«40iG0SUB?iP-'>s00SUB2«G0T029V 

294 P«40iGOSUB2»P=:i:GOr.UB2»BOT0297 

295 GOT0296 

296 f»202«G0T0301 
257 P«242t00T0301 

298 P=1?4:G0T0301 

299 F»250«00T0301 

300 I=0:P=195»G0T030l 

101 GOr,UB2:lFI = lTHCNP"0:GOSUB2:nOT02ELSEK-K + llA(K)-MtP-EiGOSUB2« 
P-DtGOTO? 



302 'Goto 

303 G0SUB3«G0SUB77:G0SUB7:D=Dl:E»El:G0T0300 

304 'Gosub 

305 GOSUB3:GOSUD77:G0SUB7!0«0l:C-El:Cl-M*7iG0SUBB3iG0SUBUl«GOSU 
B126IG0T0300 

306 'Return 

307 G0SUB123iP-233>G0T02 

308 'Transferenc ia Var. Siaples Preclsao 

309 IFPC-49ANDPN-207THENCM=1ELSECM=0 

310 G0SUB3lG0SUB3«MF»VNiG0SUB100iG0SUB3iG0SUBU2iP"205iG0SUB2«P- 
1 3 1 G0SU8 2 1 P - 38 1 G0SU62 

311 IFCM-0G0SUB115>G0SUB127iG0SUB20iG0T0147 

312 GOSUB 126 tG0SUB20i GOSUB 127 I GOSUB 1231 GOTO 147 

313 'Operacao coa Strings 

314 GOSUB3«Vl-PC--65iMF»VS*Vl«(SL+l> 

315 G0SUB3IIFPCO36THEN8 

316 G0SUB3IIFPCO213THENB 

317 G0SUB3«IFPC"247THEN322ELSEIFPO64ANDPC(91ANDPN-36THEN394ELSE 
IFPC034THENB 

318 PC-PEEK(Q)i0-Q+HFP-ltGOSUB10O:FP=0 

319 GOSUB 31 IFPC-34THEN3ELSERETURN 

321 'Strings coa Chrt 

322 C1-MFIG0SUB83IG0SUB112 

323 G0SUB3HFPC( )40THEN8ELSEC»-"" 

324 G0SUB3lIFPC>64ANDPC<91THENVl-PC-65lG0SUB6iG0SUB3lIFPCO41THE 
N8ELSEP-58iG0SUB2iG0SUB841G0SUB21P-PliG0SUB2lP-119tG0SUB2iG0T032 
9 

325 IF(PC<480RPO57)ANDPCO41THEN8 

326 IFPC< >41THENC*»C**CHR»(PC) IG0SUB31G0T0325 

327 Cl'VAL(CS)iG0SUB116 

329 G0SUB3UFPC>205G0SUB3iIFPC< >247THn*8ELSEP«33i003UB2 100T0323 

330 IFPC-580RC-2THENP-35 i G0SUB2 i C 1 -3 i GOTO 1 1 6ELSE8 

331 'For Rot ma 

332 Cl>M+7iG0SU883:G0SUB3iG0SUB5iG0SUB6!Vl-PC-65!G0SUB84!G0SUB3! 
D(V1>>DHE(V1>-E1IIFPC(>213THEN8 

333 GOSUB 3: IFPC(650RPC-206G0SU877 Ul-Oi ID-D1 1 IE-El tELSEJl-1 1V2-P 
C-65iG0SUB6tCl-VT+V2»2iG0SUB83i 10-01 i IE-El 1G0SUB3 

334 IFPC( >189THEN8 

335 G0SU83HFPC<650RPC-206G0SUB77iJ2-0iF0»DliFE-ElELSEJ2-liV3=PC 
-65iG0SU86iCl-VT+V3"2lG0SUB83iFD-Dl!FE-Elia-Q+l 

336 IFJ2-0THENP-33ELSEP-42 

337 GOSUB 2 = P 'EE : GOSUB 2 =^ =FD : GOSUB 2 : GOSUB 1 2 4 

338 IFJ1-0THENE1-IE1D1-ID1G0SUB112 

339 IFJl-lTHENP-42lG0SUB2lP-IEiG0SUB2tP-I0lG0SUB2 

340 GOSUB 1 19 UFPEEMQ-l )< >58AN0PEEK (0-1 ) < >0THEN8ELSERETURN 

341 'Next Rot ina 

342 G0SUB3 ■ G0SUB5iG0SUB6lVl-PC-65lG0SUB118iG0SUB 1251 GOSUB 1261G0S 
UB124iG0SUB12HG0SUB123iP-35iG0SUB2tP-194iG0SUB2iP-E(Vl) 1G0SUB21 
P-0<V1 ) I00SUB2IG0SUB123IG0T03 

343 'Rotlnas Point, Set ft Reset 

344 IFPC-130THENU-1ELSEIFPC-131THENU-128ELSEIFPC-198THENU-0 

345 MA-M 

346 G0SUB3HFPC( >40THEN8ELSEG0SUB3lG0SUB77i IFC1— 1G0SUB5IG0SUB6 t 
Vl-PC-65lG0SUBB4iD2«PHE2-PtC2»lELSEE2-EliC2=0HFPC( >44THENB 

347 IFC2-100SUB3HFPCO44THENB 

348 G0SUB31G0SUB77HFC1 — 1G0SUB5IG0SUB61V1-PC-651G0SUB841D3=PHE 
3-P1C3-1ELSEE3-EHC3-0UFPCO41THENB 

349 IFC3-1G0SUB3UFPCO41THEN8 

350 G0SUB3HFPC( >58AN0C< >2THEN8 

351 C1-HA+18+C2+C3IG0SUB83IG0SUBU2IG0SUB1241E1-1261D1-7IG0SUB11 
2>P-62iG0SUB2lP'UiG0SU62iP-245iG0SUB2 

352 IFC2-lTHENP»58iG0SU82:P-E2iG0SUB2iP-D2iG0SUB2«ELSEP-62iG0SUB 
21P-E21G0SUB2 

353 P-2451G0SUB2 

354 IFC3-lTHENP-58iGOSUB2iP«E3iG0SUB2tP-03iGOSUB2ELSEP-62iG0SUB2 
IP-E31G0SUB2 

355 E1-B0ID1-HG0T0120 

356 'Rot ina Poke 

357 G0SUB3iG0SUB77HFCl--lTHENG0SUB5lG0SUB6lVl-PC-65lG0SUB118iG0 
SUB3ELSEG0SUB112 

358 IFPC( >44THEN8 

359 00SUB3iG0SUB77lIFCl=-lGOSUB5iGOSUB6iVl-PC-65iG0SUB84tEJ=P:Dl 
-PllP-58iG0SUB2:P-EHG0SUB2iP-DliG0SUB2iG0SUB3ELSEP-62iG0SUB2iP- 
EUG0SUB2 

360 IFPC058ANDC02THEN8 

361 P-119IG0T02 

362 '2-D code store 

363 PRINTtPRINTiPRINT"Rot ina p/araazenar Mtn:»« 2-Di"iPRINTiCl 
■VDIG0SUB831G0SUB112 

364 Cl-VD + 4«NT»0T»DTlG0SUB83lP-221iG0SUB2iG0SUBll2iCl-4«DTlG0SIJB 
79IG0SUB1U 

365 Cl-NT«DTiG0SUB79lP-l IG0SUB2:P-E1 1 GOSUB 2 iP-01 1G0SUB2 

366 P-221iGOSUB2tP-117«G0SUB2iP"OiGOSUB2iP-22HG0SUB2iP-35!G0SUB 
2iP-22HG0SUB2iP-116iG0SUB2iP-0iG0SUB2iP«221iG0SUB2iP-35iG0SUB2i 
GOSUB 113IP-13IG0SUB2 

370 Cl-M-12iG0SUB83iP"194iG0SUB2iP-EliGOSUB2iP-OUGOSUB2 

371 P-5iQ0SUB2iP-14iGOSUB2iP<>25SiG0SUB2:Ci-H-lBiGOSUB83>P-242!GO 
SUB2IP-E1 IG0SUB2IP-D1 1 GOSUB 2 

372 PRINTa840,"Coapilacao pr inc ipal i"iRETURN 

373 'Rot ina Out 

374 G0SUB31G0SUB77UFC1--1THEN8ELSEP0-C1 

375 IFP0(00RP0>255THENB 

376 IFPC( >44THEN8 

377 G0SUB3lG0SUB77UFCl--lTHENGOSUB5iGOSUB6lVl-PC-65iGOSUB84iEl- 
PiDl-PliP»58iG0SUB2iP-EHG0SUB2iP«DliG0SUB2:G0SUB3ELSEP«62iG0SUB 
2IP-EHG0SUB2 

37B P-21UGOSUB21P-P0IG0T02 

379 IFPC< >58AN0C( >2THEN8ELSERETURN 

3B0 'DefUsr 

381 G0SUB3UFPC-193AN0PN-213THENQ=a*lELSE8 

3B2 G0SUB3IG0SUB77UFC1— 1THENG0SU851GOSUB61V1-PC-6S1G0SUB1181GO 

SUB3ELSEG0SUB112 

383 P-34iGOSUB2tP-142iG0SUB2lP-64iGOTO2 

384 'Rot ina Usr 

385 G0SUB3UFPC< >40THENB 

386 G0SUB3«G0SUB77HFC1 — lTHENG0SUB5lGOSUB6lVl-PC-65lG0SUBB4IEl■= 
PlDl-Pl^P■58lGOSUB2lP-EllGOSUB2^P■Dl^GOSUB2lGOSUB3ELSEP-62lGOSUB 
2IP-EUG0SUB2 

387 IFPC( >410RC1(00RC1>255THEN8ELSEG0SUB3 

388 P«205iG0SU82»P-PEEK ( 16526 ) 1G0SUB21P-PEEK ( 16527 ) IG0T02 
3B9 'Araazcnaaento de textos 
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QUASAR IV: UMA AVENTURA COMPILADA 



390 Cl-PBiPRINT" <",PB |">"| i IFPB >-300THENPR INT"TEXTO OYERFLOW'xG 
OTOB 

392 G0SUB4iIFPC<>34THENPRINTCHR*(PC>|XP0KEPB,PCxPB-PB»lxG0T03?2 

393 P0KEPB,3iPB-PB*HG0T0252 

394 C1-MFIG0SUBB3iG0SUB111iV1-PC-«5xC1-VS*V1»<SL*1>iG0SUB83iG0SU 
8112 

397 P-liG0SUB2iP-SL*lxG0SUB2iP-0iG0SUB2rP-237iG0SUB2xP-176iGOSUB 
2 !Q*Q» 1 IG0SUB3IG0T0379 

399 'W«l 

400 «-«+liG0SUB3HFPC<650RPC>900RPNO36THEN8ELSEV2-PC-65lCl-VS*( 
SL*1 >«V2iG0SUB3iG0SUB3 

401 IFPC< >41THENBELSEG0SUB83iG0SUB112lP-2O5lG0SUB2xP-90iGOSUB2xP 
-30iG0SUB2i«-«*HCi-VT*2«VHG0SUB83iG08UB112tP-ilSiG0SUB2iP-35iG 
08UB2IP-114IG0T02 

500 '••• Co«piler/B«i • •• 



QUASI/USR 

Este e o primeiro m6dulo Z80 a ser compilado para a for- 
macSo de Quasar IV. A listagem 2 apresenta o programa \i es- 
crito na forma que o compilador gosta. Vamos chamaMo de 
Quasi/CMP. 

Para evitar confusa"o, deve-se dar os seguintes parametros 
de entrada para a compilacSo na ordem em que sa"o solicitados: 
5000, 150, 100, 5500 (offset para QuasII/USR, 100 (texto), 
S (deve ser 54636), 1 (SPVs), 0, 0, 0, 0, (SVs), 0. 

E IMPORT ANTE na*o errar nem mudar estes dados, pois o 
Entry-Point resultante € utilizado na chamada USR de Quasar 
IV. E se mudar aqui, vai ter que mudar 1£, e isso € valido para o 
Quasi e o Quasi I . 

Nao se pode esquecer de SALVAR o resultado, dando urn 
DUMP com os parametros fornecidos pelo compilador e com o 
FILENAME da chamada de Quasar IV, que e QUASI/USR. 

Se ate* aqui foi tudo bem, otimo. Caso contrdrio, e bom es- 
friar um pouco a cabeca e retroceder a leitura. 



Listagem 2 - Quasi /CMP 



1000 '«UASI/CHP FOR COMPILER ■•«••••• Zorro/84 ••«•»«••» 

1005 00T01440 

1010 'HOVE 16 PONTOS 

1015 A»E%xBX=INT(B>xRESET(AZ,BZ>xA%=AX*5xIFA%>126THEN1020ELSESET 

<AZ,BZ>:G0T01025 

1020 AZ-XXlB-YX 

1025 BX«INT(P > xEX=lNT(D> xRESEKBX.EX) «BX-BX*5 

1030 IFBX>126THEN1035ELSESET(B):,EZ)xP»B>:«GOT01040 

1035 P-XXxD-YX 

1040 RESET (CX,DX)xCX-CX+2lDX=DX-2xIFCXM26THEN1050ELSEIF0X<l THEN 

1050 

1045 SET(CX.DX)xG0T01055 

1050 CX-XXxDX-YX 

1055 BX»INT<E>iRESET<BX.FX>xFX-FX-3xIFFX<lTHEN1060ELSESET<8X,FX) 

XG0T010A5 

1060 FX-YXxE-XX 

1065 BX»INT(G>xEX»INT(H>xRESET(BX.EX>xEX=EX-3 

1070 IFEX<lTHEN107SELSESET(BX.EX>xH-EXxGOT01080 

1075 G-XXxH-YZ 

1080 RESET(GX.HX>xGX-GX-2xHX«HX-2xIFGX<tTHEN1090ELSEIFHX<lTHEN10 

90 

1085 SET(GX,HX)iGOT01O95 

1090 GX-XXxHX-YZ 

1095 BX-INT(J>xRESET(IX.BX>xlX-IX-5xIFIX<lTHEN1100ELSESET(IZ,BZ> 

IG0T01105 

1100 IX-XXU-YZ 

1105 BX-INT(Q>xEX»INT(R>iRESET(BZ.EX)xBX-BX-5 

1110 IFBX<lTHEN1115ELSESET(BZ.EZ>xG-BXxG0T01120 

1115 G-XXxR-YX 

1120 RESET <KX.LZ)XKX«KX-2xLX-LX*2xIFKX<lTHEN1130ELSEIFLX>4ATHENl 

130 

1125 SET(KX,LX)xG0T01135 

1130 KX-XXxLX-YZ 

1135 BX-INT<M)tRESET(BX.NX)iNX-NX*3«lFN2>46THEN1140ELSESET(BX,NX 

)tG0T01145 

1140 NX«YXiH»XX 

1145 BX-INT(UMEX»INT(Z>iRESET(BX,EX>xEX-EX»3 

1150 IFEX>46THEN1155ELSESET(BX,EX)xZ=EXxG0T0U60 

1155 U-XXxZ-YX 

1160 SET(XX,YX)iRESET(0X,PX)«02-0X*2iPX«PX»2:IF0X>126THEN1170ELS 

EIFPX>46THEN1170 

1165 SET(0Z,PX)iG0T01175 

1170 OX-XXxPX-YX 

1175 RESET («X,RX>iQX-0X+4xRX«RX-lxIF0X>126THEN1185ELSEIFRX( 1THEN 

1185 

1180 SET(0X,RZ>sG0T01190 

1185 «X-XZtRZ-YX 

1190 RESET(SX,TX)ISX-SX-4ITZ-TZ-1UFSZ<1THEN1200ELSEIFTZ<1THEN12 

00 

1195 SET(SZ,TZ)lGOT01205 

1200 SZ-XZ«TX»YX 

1205 RESET(UX,VX>xUX-UX-4xyX=VX + HIFUX<lTHEN1215ELSEIFVX>4<STHENl 

215 



1210 SETCUZ,VZ>«G0T01220 

1215 UX-XXxVX-YX 

1220 EX=INT<A>iRESET(UX,ZX>xUX=UX»4xZX=ZX*lxIFUX>12ATHEN1230ELSE 

IFZX>46THEN1230 

1225 SET(WX,ZX)iRETURN 

1230 UZ»XZiZZ»YZiRETURN 

1235 'KEYBOARD MOVE 

1240 JX=PEEK( 14368)« IF JX-14THEN1250ELSEIFJX-64THEN1255 

1245 JZ=PEEK< 14344): IF JZ-4THEN1260EI-SE IF JZ-1THEN1265ELSERETURN 

1250 XZ»XX*1«IFXX(127THEN1245ELSEXZ»126JG0T01245 

1255 XX»XX-1«IFXX>»1THEN1245ELSEXX«HG0T01245 

1260 YX«YZ*l»IFYX<47THEN1270ELSEYX«46iRETURN 

1265 YX«YX-1:IFYZ)-1THEN1270ELSEYZ=1!RETURN 

1270 RETURN 

1275 'RANDOM MOVE 

1280 IFEZ< >0THEN1290ELSEEX»INT(10"RND<0)-4.5) 

1285 IFMZO0THrN1295ELSEMZ=INT(10»RND<0)-4.5)«RETURN 

1290 IFE2>0THEN1300ELSEIFEX<0THEN1305 

1295 IFMX)OTHEN1310ELSEGOT01315 

1300 XZ-XZ*ltEZ-EZ-l«IFXX<127THEN12B5ELSEXX-126«G0T012B'S 

1305 XX-XX-1 x EX-EX* 1 x IFXX>«1THEN12B5ELSEXZ-1 JG0T01285 

1310 YX»YZ»l!MZ-MZ-l:irYZ<47THEN1270ELSEYZ-46:RETURN 

1315 YX-YX-1 XMX=MX«1 x IFYX>"1 THEN1270ELSEYX-1 : RETURN 

1320 'VISOR 

1325 PRINTa412.CHRt<156)|iPRINTa540.CHR4(180)t 

1330 PRINTa546,CHR*(184)}:PRINTa418.CHRK172),:RFTURN 

1335 'TESTA CENTRO 

1 340 IFXZ)69THEN1355ELSEIFXZ(56THEN1355 

1345 IFYZ)26THEN1355ELSEIFYZ< 19THEN1355 

1350 C=OxRETURN 

1355 C-C*UJFC>10THEN1365ELSERETURN 

1360 'IMPACTO 

1365 C-llc CO-CO* 1 

1370 G0SUB1480 

1375 SETC62.22) 

1380 F0RJX-1T022«KX-INT(62-(2«JX) > xl_X=lNT(2» JX*&2> xMX-22- JXxNX=2 

2*JZ 

1385 F0RBX-KXTOLZ«SET<BZ,MX) xSET(BX,NZ > xNEXTBX 

1390 F0RBZ.=MZT0N%:SET(KZ,BZ)«SET<LZ,BZ)!KX»KZ*1SLZ-LX-1«SET<KX,B 

X.i^EMLX.BX^KX-Kl-lxLX-LXMXNEXTBX 

1395 B0SUB1485>G0SUB1015>G0SUB14B0iNEXTJX 

1400 GOSUB1425xCLSx GOSUB 1425 xCLSx GOSUB 1425 

1405 IFCO<6THEN1410ELSERETURN 

1410 PRINT3473."<" IMPACTO • >", IPR INT3965."TELASs";5-C0s iPR INT31 

010,"TIMEJ'»T0j" "i 

1415 F0RJZ»lT0512:BZ-INT<959»RND(0)):PRINTaBZ,CHR»(128>;:NFXTJZ 

1 420 CL S : GOSUB 1 485 x GOSUB 1 470 : RETURN 

1425 F0RJZ»0T01023:PRINT3JX,CHR*< 191 ) , : NEXT JZ« RETURN 

1430 IZ=0:IZ«1»UEND 

1435 'MAIN LOOP 

1 440 CLS i XX-62 « YZ-22 : TO-300 « C=0 « CO-0 : GOSUB 1470 

1445 AZ=X2:CZ=XZ:DX»Y2:FX=YZ:GZ-XZsHZ»YXsIX=XXiKX=XZ:LZ-YZ:NZ=YZ 

lOX«XZxPX-YXx(JX=XXxRX=YZxSX=XX:TX=YX:UZ-XXxVZ=YXxUX-XXxZX=YXxEX= 

i)xMZ=0:B=YZxE=XZiM-XX:J-YZtP-XZ*(XZ/2>«D-YZ«G=XZ:H-YZ/2:a-XX/?:R 

»YZxU-XXxZ-YX*<YX/2) 

1450 F0RJX=lTO7xGOSUB1325xGOSUB1015xSET<XX.YX>XNEXTJXxRESET<XX,Y 

X) 

1455 G0SUB1280xG0SUB1240xG0SUB1340xIFC0)5THEN1430 

1460 T0=T0-l:PRINTa52.*'Timex",T0;" ", x IFTO >0THEN1450ELSEIZ-1 X IX- 

l«IxEND 

1465 'MOLDURA 

1470 FORJZ=OT0127xSET<JZ,0>xSET(JZ.47)iNEXTJZ 

1 475 FOR JZ-0T047 x SET < , JZ ) x SET ( 127 , JZ ) x NE XT JZ x RE TURN 

1480 K-KZXL-LZXMO-MZXN-NZXRETURN 

1485 KZ«INT(K)XLZ»INT<L)XMZ=INT(M0)XNZ»INT(N)XRETURN 

10000 END 



QUASn/USR 

E o segundo modulo Z80. A listagem 3 contem o programa 
para o compilador: QuasII/CMP. Os parametros para esta com- 
pilacSo sa*o, na mesma ordem de entrada, os seguintes: 4100, 
1 50, 70, (offset), 900 (texto), S (deve ser 60236), 0, 0, 0, 0, 
0, l(SVs)e 10. 

No DUMP para salvar, deve-se dar o FILENAME de chama- 
da de Quasar IV, que e QUASH/USR. So isto. 




1000 'JERRY/CMP FOR ftUASAR IV (QUASII/USR BY COMPILER) Zorro/8 

4 

1005 EX-O+I : CLS: TZ-30 IFOR I Z-1T05:SZ«30 XGOSUB 1290: SZ-15XGOSUB 1290 

INEXTIZ 

1010 F0RIZ-0T0127iSET(IX.0):SET(IX,l)iSET(IX,42)iSET(IX,43):NEXT 

IX 

1015 F0RIX-0T043xSET(0,IZ)iSET<l,IX)lSET<126,IZ)xSET<127,IZ)xNEX 

TIX 

1020 F0RIX-82TO8SxF0RJX-24T025xSET<IX,JX)xNEXTJX:NEXTIX 

1025 F0RIZ-96T099iF0RJZ-6T07iSET(IX,JZ>iNEXTJZiNEXTIX 

1030 FOR JZ-36T040 x SET < 1 1 4 , JZ ) x SET ( 1 1 7 , JZ > x NEXT JZ x SET ( 1 1 6 , 40 ) x SET 

(115,40) 

1035 SET<124,5>iSET<122,4>iSET<118,4>!SET(118,2>iSET<122,2>!SET( 

124,7>xSET(120,7)iP0KE15484,145iP0KE15549,145xP0KE15547,145 

1040 F0RKZ-lT015iG0SUB1285xNX-INT<10«RND<0)*l) 

1045 FORIX-ITONX 




DESCUBRA AS DIFERENCAS 



Aparentementa estes dots cabos 

sBo iguais, 

Olhe bem a tanta descobrir as 

diferencaa. 

Sok.'cao 

1 - cabo de cima e AUD10FLEX. Be 

tem cooiinuidade de caraciertsticas 
eleiricas ao longo de loda linha. 
porous e fabricado com o melhor 

equipamento a sua qualidade e 
controlada am toda linha de 
fabricacao. 

2 - cabo de cima e AUOIOFLEX. Ele 

e fabricado com cobre eletrolitico 
novo e polretllano novo - nada do 
materia -prima recuperada. 

3 - cabo de cima 6 AUDIO FLEX. 

Sua montagem e rapida e faci^ 
devido as diversif icagoes de lipos a 
cortes bobinados no comprimafiio 
exsto, 

4 - cabo de rima e AUOIOFLEX. Ele 

passa pelo mais avancado controle 
da aualidade. 




5 • cabo da cima i AUDIOFLEX. Ele 

a fabricado por uma empresa que 
s6 fabrica cabos aspeciais. 

6 ■ cabo da cima e AUOIOFLEX. Ele 

a feito com a mais alia lecnologia. 

7 • O cabo de cima e AUOIOFLEX. Eta 

e fabricado em mais de 18 tipos 

8 ■ O cabo de cima e AUDIOFLEX- A 

ernpcasa que o fabrica tem um 

Departamento de Engenharia 
preparado para indicar qua) o 
melhor tipo para seu caso, 

9 - O cabo de cima e AUDIOFLEX. Ele 

a fabricado am varies tipos de 
biiolas a blindagens. 
10 - cabo de cima e AUDIOFLEX. Ele 
e fabricado com varios tipos de 
condutores internos. 

Agora, se voce esta pensando que 
descobriu as dlferencas, voce errou. 
porque o da baixo tambem A KMP, 
e a KMP tem a mais alta tecnologia 
em cabos especial*. 



® 



m 



AUDIOFLEX 



kmP 



Cabos Especiais e Sistemas Ltda. 

BR lie^km 25. - Cx. Postal 146 - 06800 

Embu SP - TU 011/494-2433 Pabx • TiAr* 

Oil 33234 ttMPL - BR - Telegram** Pirwtoabte 
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MICRO SISTEMAS. marr;o/85 



IP 



QtMtquer duvida chame nosso Dtpartarrwrno d* Engenhana de Merfceiing 




Trataraqui. 



Ate hoje, acontecia o seguinte: as empre- 
sas pequenas compravam mierocompula- 
dOres. As empresas grandes compravam 
computadores grandes, E as empresas que 
eram grandes demais para um micro ou pe- 
quenas demais para um computador 
grande, compravam um proWema, 

Agora, voce pode trocar o problema por 
u m a solucao: o Micrao Cobra 480. 

Aliando o desempenho do processa- 
mento em 1 6 bits a possibilidade de ser 
usado por ate 8 pessoas ao mesmo tempo. 
o Micrao Cobra 480 e uma solucao perfefta 
para quern precisa mais que um micro, mas 
nao quer pagar o alto p reco de uma maquina 
de grande porte. 

Com 8 terminals e 5 f inhas de comunica- 
cao sincrona, capacidade de memOria de 
ate 1 Megabyte, ate 4 unidades de disco rl- 
gido Winchester de 10 Megabytes, ate 2 uni- 
dades de fita de 800 1 600, 45 ips. e com im- 
pressoras de finha ou seriais, o Micrao Co- 
bra 480 tanto pode resolvef todo o processa- 
mento de dados de uma empresa de porte 
medio, como dar conta do processamento 
distribuido em grandes empresas. 

E com uma vantagem que nenhum 
grupo de macros of erece: o Micrao 480 pode 
crescer. Como ele e compativel com os 
computadores de maior porte da Cobra, 
amanha sua empresa pode migrar para 
uma maquina maior, preservando todo o in- 
vestimento que foi feito em software 
e perifericos. 

Va ate a filial Cobra mais pr6xima e eo- 
nheca o Mroao Cobra 480 em detalhes. 

Voce vai descotorir um computador com 
as medidas certas em tudo. Ate no preco. 



Co bra 480 ) 
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1030 XX-XX+i l IFXX< 125THEN1055ELSEXX-124 

1053 YX-YX*1UFYX<41THEN1060ELSEYX»40 

1060 8ET(XX,YX)lNEXTIXlNEXTKX 

1063 F0RKX-iT0i5iQ0SUB12B5iNX-INT( 10«RND<0>*1 > 

1070 F0RIX-1T0NX 

1073 XX-XX*UIFXX<12STHEN1080ELSEXX-i24 

1080 YX-YX-llIFYX>2THEN10B3ELSEYX-3 

1085 SET<XX,YX)iNEXTIXiNEXTKX 

1090 F0RKX-1T025 

1093 G0SUB1285iNX-INT<24»RND<0>-H>iNX-NX+XXUFNX<126THEN1100ELSE 

NX- 125 

1100 FORIX-XXTONX 

1105 JX-IX*i I AX-POINT <JX,YX> I IFAX— 1THEN1 130 

1110 IFIX< >XXTHENU15ELSEJX-IX-llAX-P0INT<JX,YX>i IFAX— 1THEN1 130 

1115 JX-YX-HAX-POINT(IX.JX)lIFAX— 1THEN1130 

1120 JX-YX+1 I AX-POINT ( IX, JX>i IFAX— 1THEN1 130 

1125 SET<IX,YX> 

1130 NEXTIXiNEXTKX 

1135 F0RKX-1T035 

1140 G0SUB1285iNX-INT<15»RND<0>*l)iNX-NX+YXUFNX<42THEN1145ELSEN 

X-41 

1145 DX-0iF0RIX-YXT0NXiAX-P0INT<XX,IX)tIFAX»0THEN1150ELSEDX-0«G0 

T0U75 

1150 DX-DX* 1 UX- IX* II AX-POINT < XX, JXM IFAX— 1THEN1 175 

1155 IFDXO 1THEN1160ELSEJX- IX- H AX-POINT < XX, JX> I IFAX— 1THEN1 175 

1160 JX-XX-1 IAX-P0INT( JX, IX) I IFAX— 1THEN1175 

1163 JX-XX+ 1 1 AX-POINT <JX, IX) I IFAX— 1THEN1 175 

1170 SET(XX,IX> 

1175 NEXTIXiNEXTKX 

1180 FOR JX-1T010«G0SUB1 3031 SX-20IG0SUB 1290 IGOSUB 1310 ISX-401G0SUB 

1290 I NEXT JX 

1185 F0RKX-1T045HX-INT<121»RND(0)*3)IJX-INT<37«RN0(0)+3)ISET(IX 

,JX)iG0SUB1320iNEXTKX 

1190 PRINT3962. "Modulo de Serv ico"i IPRINT3986. "< OUASAR IV >"jiP 

RINTS1009, "Energy I ", iPR INT31016, EX, 

1195 TX-20 1 FOR I X- 1 T020 1 SX-2 1 - IX I COSUB I2VU I NfcX r IX 

1200 XX-22iYX-31UX-124lJX-3iSET(XX,YX)iSET<IX,JX)iTX=10 

1205 HX=0iWX-0iKX-0lLX-0 

1210 IFXX>-IXTHEN1215ELSEHX-1 

1215 IFXX<-IXTHEN1220ELSEHX— 1 

1220 IFYX>»JXTHEN1225ELSEVX-1 

1225 IFYX<-JXTHEN1230ELSEVX— 1 

1230 AX-PEEK ( 14368) i IFAX< ) 16THEN1235ELSEKX— 1 

1235 AX-PEEK (14368) i IFAXO64THEN1240ELSEKX-1 

1240 AX-PEEK < 143*4 N UFAX< )4THEN1245ELSELX— 1 

1245 AX-PEEK<14344)HFAX< >1THEN1250ELSELX-1 

1250 EX-EX-HPRINT31016.EXj" ", iSX-50iG0SUB 1290s IFEX-0THEN1325 

1255 RESET<IX,JX)UX-IX*KXUX-JX*LXiAX-POINT( IX, JX) I IFAX-0THEN12 

60ELSEIX-IX-KXUX-JX-LX 

1260 SET( IX, JX) t IFJX< >34THEN1265ELSEIFIX<21THEN1265ELSEIFIX)23TH 

EN1265ELSEG0T01340 

1265 RESET < XX. YX>iXX«XX*HXiYX-YX+VXl AX-POINT < XX. YX1HFAX-0THEN12 

80 

1270 IFXX< >IXTHEN1275ELSEIFYX< > JXTHEN1275ELSEG0T01355 

1275 YX-YX-VX I AX-POINT < XX, YX>iIFAX-0THEN1280ELSEYX=YX*V%sXX«XX-H 

X I AX-POINT < XX, YX> I IFAX-0THEN12B0ELSEYX-YX-UX 

1280 SET(XX,YX)iG0T01205 

1285 XX-INT(123»RN0(0)*2)iYX-INT<39«RND(0)*2)iRETURN 

1290 F0RAX-lT0TXi0UT255.2iG0SUB1295i0UT255.HG0SUB1295iNEXTAXiRE 

TURN 

1295 FORDX-lTOSXiNEXTDXiRETURN 

1300 F0R0X-1T032500INEXTDX I RETURN 

1305 At-" "iPRINTa649,AS,iPRINTa713.A5,iPRINT3777,A*»iRETURN 

1310 F0RIX-20T024iSET<IX,3f >INEXTIX 

1315 SET < 20 , 34 > I SET < 20 , 33 ) I SET < 21 , 33 ) I SET ( 23 , 33 ) I SET < 24 , 33 ) « SET < 

24,34) IRETURN 

1320 TX-5ISX-5IG0SUB1290IRETURN 

1325 CLSiPRINT"Modulo de Servico sen energia nao pode prosseguir 

"•PRINT 

1330 PRINT'Tr ipulacao sea ox I gen i o. . . "sPR INT 

1335 PRINT"E' dado coao perd I do. . ." IG0SUB13001G0T01365 

1340 CLSlPRINT"CONGRATULATIONS!"iPRINT 

1345 PRINT"Modulo de Servico acaba de chegar ao depo«lto de"iPRI 

NT"Cristais dc Litlu* da Federacao ne»ta gal ax i a ."IPRINT 

1350 PRINT"TRANSPORTEs Cri»tai« undo telet ran«portado». . ."IGOSU 

BI300IEX-3000IG0T01365 

1353 CLSiPRINT"SENSORESi Perdido contato com Modulo de Servico"! 

point :ppjNT"Mis5i 1 Klingon destruiu Modulo. "IPRINT 

1360 PRINT"Co«unlcacoe» lnterro»p i das. . ."IPR INTIG0T01335 

1365 EX-1«HEND 

10000 END 



QUASAR/MIX, JOGO 

Aos que suportaram ate esta parte, nao se desesperem: a lis- 
tagem 4 e' a ultima e contem o programa principal do jogo. Os 
24 Kb de BASIC sSo o antepenultimo obstaculo entre o co- 
mandante da Enterprise e a conquista do espaco (o ultimo sao 
os Klingons...). 

peniiltimo obstaculo sSo as linhas 1 , 6001 e 6002 da lis- 
tagem 4. pois e preciso inserir nestas linhas tres pequenas ro- 
tinas em linguagem de maquina, de preferencia usando-se o 
utilitario Pokodes (MS n9 36) embora seja possivel tentar fa- 
ze-lo de outra forma (com o Superzap, POKEs ou CHRS 
( ).„), com o Pokodes e bem mais faal (veja o Apendice A, 
no final do texto). 

A linha 1 e urn REM, com 72 c6digos de maquina que de- 
vem ser colocados no lugar dos niimeros da linha 1 que servi- 



ram para reservar o espaco de 72 bytes (o REM fica). £ impor- 
tante que esta linha seja a primeira do BASIC, pois como tal e 
enderecada por POKE(16548) + 256 * POKE(16549) + 5 na 
linha 45 . Observe que o+Se para enderecar a rotina Z80 ap6s 
os quatro bytes que inicializam cada linha BASIC mais o c6- 
digo (token) de REM. 

Os 72 c6digos de maquina para a linha 1 sSo: 205, 127, 10, 
203, 124, 40. 4, 34, 28, 65, 201, 34, 30, 65, 219, 255, 31, 31, 

31, 47, 230, 248, 95,58, 57,65,254,4,32,2, 171,95,58, 

32, 65, 87, 237, 75, 28, 65. 43, 124, 181, 40, 6, 221, 227, 
221, 227,24, 12,42,30,65, 122,7,7,87,230,3,179,211, 
255, 3, 120, 177, 32, 228, 123, 21 1, 255, 201 . 

Nas linhas 6001 e 6002 deve-se empacotar nas variaveis 
strings X$ e Y$ as rotinas Z80 restantes, mas sem apagar as 
aspas normais da string (")• Os niimeros foram colocados para 
reservar o espaco necessario. O enderecamento e' feito por 
VARPTR( ) nas linhas subseqiientes. 

Os 70 c6digos de maquina para a linha 6001 sao: 33, 253, 
177, 243, 62, 1,8,62,35,61, 190,32,2,251,201,126,35, 
86, 94, 29, 14, 10, 6, 225, 21. 32, 14, 87, 62, 120, 190, 40, 
6, 8, 238, 3, 211, 255, 8, 122, 86, 29, 32, 15, 95, 62, 120, 
190. 40,6.8,238.3,211,255,8, 123.94.29, 16,219, 13. 
32,214,61.32.209,35,24, 193. 

Os 54 codigos para a linha 6002 sao: 32, 149, 32, 74, 16, 
79, 8. 99, 8, 88. 16, 79, 12, 74, 4, 120, 32, 149, 32, 88, 48, 
99, 16, 120, 32, 177, 32, 111, 16, 118, 8, 149, 8, 133, 16, 
118, 12, 111,4, 120, 16, 133, 8, 158,8, 149, 16, 133, 16, 
118,64, 149,32,120. 

Apos a introducao destes codigos nas linhas 1 , 6001 e 
6002, estas linhas nSo poderSo mais ser editadas, para que nao 
se perca a informacSo. Um LIST nestas linhas mostrara uma 
sujeira maluca. Mais uma vez aconselhamos que se use o Po- 
kodes/BAS", mas quern nSo tern o Pokodes, pode usar o Super- 
zap. E quern nSo tern o Superzap, utilize CHRS ( ) para X$ 
e YS, e de POKEs na linha 1 (no endere<jo jS explicado) e 
substitua o LPRINT da linha 2645 por GOSUB6001 (RE- 
TURN) : LPRINT. 

Veja em seguida alguns comentirios que merecem desta- 
que: 

- Note na linha 9 o LOAD dos m6dulos compilados com seus 
FILINAMEs. A - definicSo de seus Entry-Points (DEFUSR) 
se da nas linhas 2734 e 5035 e as chamadas logo em seguida. 

- Muitas vezes e feito o teste IF PEEK( 16549) > 80 THEN 
DEFUSR... para saber se estS em BASIC Disco ou so em cas- 
sete, isso foi feito para ajudar a quern s6 tern cassete. Quern tern 
BASIC Disco pode eliminar algumas coisas sempre que encon- 
trar este IF (que estS, por exemplo, nas linhas 20, 45, 2734 e 
5035). 

- Em algumas linhas como 130 e 160 e' usado o carter ( ] ) 
que normalmente nao entra pelo teclado, utilize CHRS(93), 
concatenando assim as strings para ficar a mesma coisa (ou 
entSo faca uso do utilitario Pokodes/BAS). 

- NSo e necessano posicionar o memory size antes de rodar o 
programa, pois a linha 9 faz isso. 

- Na definicSo de strings do painel de comando nas linhas 1 30 
a 160 e 480 a 550, 6 importante acertar bem o seu tamanho e 
nao pular nenhum espaco em branco. 

- As sai'das do jogo ocorrem a partir de 2600 e a avaliacSo e' 
feita em 2630, variavel N. 

- NSo esquecer as conexOes de 2udio para o som. 

O jogo: instrucoes e dicas 

A missSo da Enterprise e' patrulhar a galaxia ate" esgotar o 
seu tempo, medido em centons, ou ate" capturar ou destruir 
todos os inimigos da FederacSo que estSb escondidos pelos di- 
versos quadrantes da galSxia. comandante da nave tern que 
enfrentar todos os Klingons, os Atlantis, os Romulans e os 



Darthlans e ainda escapar das dificuldades e imprevistos das 
viagens pelas dobras espaciais. 

No nivel facil (6), mais centons sao fornecidos para a execu- 
ca"o da missSo, porem mais inimigos sSo encontrados, o que po- 
de ser mais perigoso. A probabilidade de imprevistos ocor- 
rerem neste nivel e' menor e a viagem transcorre com mais 
calma, o que e melhor para os iniciantes. 

A galaxia e dividida em 8x8 quadrantes de 8x8 setores 
cada. Os sensores de curta distancia (short range sensors) 
mostram no painel principal de controle da Enterprise o 
quadrante atual que a espaconave se encontra e os 8x8 setores 
do quadrante. A Enterprise e representada por um +, as es- 
trelas por * uma das bases por 0-0 e os inimigos por diver- 
sas formas. E importante observar bem os setores para o cSlcu- 
lo da inclinaijao de tiro (graus) dos mi'sseis. As coordenadas do 
setor do quadrante, e do quadrante da galaxia que a espaco- 
nave esta, sSo mostradas na parte superior do painel principal 
(e em outros paineis tambe'm, para localizacJTo). 

Os sensores de longa distancia (long range sensors) exibem, 
no centro da tela, as informac<5es sobre o quadrante que a 
Enterprise estS e, ao lado, as informac5es sobre os quadran- 
tes vizinhos. Essa informacSo vem na forma de tres digitos, 
KYZ, que indicam a presence e o numero dos seguintes ele- 
mentos: inimigos, bases e estrelas. 

computador de bordo sempre armazena as informacoes 
colhidas pelos sensores de longa distancia e sobre o quadrante 
atual, mostrando-as reunidas para permitir o estudo da estra- 
te'gja no painel galaxy records. Iniciado o jogo, o que hi nos 
quadrantes (menos o atual) da galSxia e' desconhecido. 

As bases estelares sSo poucas, mas se o comandante quiser 
sobreviver e' melhor descobrir logo as suas localizacOes. Ha, 
entre os Pianos de Emergencia, a possibilidade de se tentar 
contato com as bases pelo radio, buscando assim a localizacSo, 
mas 6 grande o risco da base ser localizada e destruida pelos 
inimigos se o comandante nSo souber lidar com os codigos 
secretos de comunicacSo. E sem base... nSo ha como resistir. 

E bom ficar de olho na energia disponivel e na energia do 
campo de protecSo (shields). Os shields protegem a espaco- 
nave dos phasers inimigos, mas tambe'm atraem os seus mi's- 
seis. Os tiros de phasers distribuem a energia total do tiro pelas 
espaconaves inimigas presentes no atual quadrante, atingindo 
com maior intensidade as naves mais pr6ximas e que nao estSo 
perto de uma estrela, protegidas. Cuidado para nao usar mais 
energia do que hi disponivel nem esgotar as reservas logo no 
initio da Jornada, pois a recarga geralmente € dificil. 

As espaconaves inimigas contidas em um quadrante na"o 
ficam para das, nem sao burras: elas se aproximam para atirar 
e se afastam quando estao em apuros, e muitas vezes se prote- 
gem pr6ximo a uma estrela, que absorve os mi'sseis ou os ti- 
ros de phaser da Enterprise. E muito cuidado se os danos sao 
elevados ou os niveis de energia total ou dos shields ficarem 
baixos, pois eles tern os seus sensores e se aproximam em for- 
mac^o cerrada (quando ha mais de um no quadrante), aprovei- 
tando qualquer oportunidade para tentar destruir a Enterprise. 

NSo hesite em fugir se estiver na pior, mas atencSo com o 
quadrante vizinho: pode ser fatal. Um bom comandante pre- 
cisa sempre saber se localizar e estar pronto para uma a?So 
rapida e correta. Um tiro de phaser destr6i um inimigo quan- 
do a energia com que este foi atingido 6 superior a sua energia 
total disponivel. Esta energia s6 pode ser observada pelos sen- 
sores da Enterprise quando um phaser atinge o inimigo. Pode- 
se usar tambe'm o equipamento de emergencia, mas gasta-se 
mais energia e e bem complicado. 

Os mi'sseis sSo atraidos pelo campo de protecSo. Isso 6 vS- 
lido para os do is lados, mas nem sempre acertam o alvo: nos 
limites do quadrante ou perto de uma estrela e bastante difi- 
cil acertar ou ser acertado. Cada tiro de phaser que atinge a 
Enterprise diminui a energia de seu campo de prote5io da 



quantidade de energia com que esta foi atingida. Alarmes de 
emergencia nSo devem ser negligenciados, pois geralmente in- 
dicam que o fim esti pr6ximo. 

Se uma secSo e danificada, nSo se pode usS-la. Para repara- 
la sSo necessSrios alguns centons, mas isso nffo deve ser feito 
durante uma batalha, porque os Klingons nSo vSo ficar espe- 
rando.. A maxima velocidade que os motores danjficados atin- 
gem e de 0.2 Warps, sendo que o normal e' 9 Warps. A travessia 
de um quadrante a outro pelas dobras espaciais exige uma velo- 
cidade de impulsSo minima proporcional S distancia entre a 
Enterprise e o limite do quadrante na direcSo desejada. £ pos- 
sivel saltar virios quadrantes de uma vez, adicionando-se 1 
Warp por quadrante, mas cautela com o consumo de energia. 

Imprevistos e situac6es difi'ceis podem ocorrer ao se usar as 
dobras espaciais. Deformac5es no espaco podem conduzir a 
Enterprise para fora da galaxia a grandes velocidades, e ai e 
preciso manobrar com rapidez para evitar que a energia acabe 
e nSo sobre energia suficiente para a volta. Campos de minas 
Klingon e tempestades muito estranhas podem ser encontra - 
das no hiperespaco, e ambas conduzem ao ale*rn. 

Abaixo do nivel 3 e muito dificil sobreviver is minas hi- 
perespaciais. Para conseguir energia, pode-se ir ate uma base, 
procurar cristais de litium na zona neutra com o modulo 
de servico, ou entSo arriscar a vida em drbita de um planeta de 
anti-mate'ria. A base e' o mais fScil, mas nem sempre estar2 dis- 
ponivel. Para chegar ate' o depdsito de cristais de litium e - pre- 
ciso superar o missel cruise Klingon, que i lanc^do de uma 
rampa pr6xima ao deposito assim que o m6dulo manobrado 
manualmente entra na zona neutra (o numero de m6dulos de 
servico e* limitado). E o planeta de anti-materia... e melhor dei- 
xar para usar s6 em ultimo caso, mas para quern precisar, e 
aconselhavel ficar em 6rbita apenas o tempo necessSrio e nSo 
for9ar a sorte (este planeta e as minas hiperespaciais costu- 
mam ser o cemite'rio do jogo). 

Na hora de atravessar o campo de Quasar IV, que e' resul- 
tante de explosOes de estrelas super-novas, lembre-se que os 
controles manuais sSo iguais aos do aviso: para baixo sobe e 
para cima desce. So se consegue a travessia pelo setor central 
do campo e sempre acompanhando as linhas de forca. Cada 
particula atomica que atinge a Enterprise e unia tela de prote- 
cSo a menos. 

A Enterprise acopla-se a uma base apenas enoostando nes- 
ta (atencSo:e para encostar, uma colisSo po4e explodir tudo!), 
e automaticamente sera feita a recarga e a manutencSo. Ao 
usar os motores para se movimentar, lembre-se, 4a localizacSo 
das estrelas! 

Os radares quadradar e intergalatico sSo emergejicias para o 
caso de navegacSo as cegas, e sSo geralmente usados durante 
combates em que foram destruidos os sensores de curta ou 
longa distSncia. Nesses casos, antes de fugir ainda e possivel 
sobreviver usando os antiquados radares. Com9 r^dar, porem, 
nSo ha a indicacao do que sao os objetos deteciados, exceto 
a pr6pria espaconave. 

Para fugir de um quadrante, numa situacSo de desespero, 
resta o black-hole ou buraco negro, pois pode-se chegar ao 
hiperespago mergulhando em um black-hole, se a espaconave 
conseguir ser controlada na travessia do Tunel de Plasma. £ 
indeterminado o quadrante resultante, bavendb ainda o peri- 
go adicional de um a fa stamen to execssivo da galypua. 

A vida do inimigo tambe'm tern valoi: prisioneiros fazem 
mais pontos na avaliacSo do que defuntos. Captura-se uma es- 
paconave inimiga com a reducSo de sua energia ao mi'nimo 
(quase zero) e depois com a aproxirnaejfQ, pojs s/) entSo po- 
deri haver a rendicSo. 

Por fim, alguns avisos aos futuros conundantes: a auto des- 
truicSo e, no mi'nimo, desaconsplhivel, porque nSo hi como 
desistir no meio; para descansar, pega a instruclo sobre os co- 
rn an dos; cada manobra efetuada consome energia e tempo, por 
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isso 6 fundamental planejar; a avaliasao maxima e" 100, mas 
quern chegar vivo ao final dos tempos ja e' um heroi, e quern 
passar dos 50 pontos e um verdadeiro monstro. Experimente. 

• Apendice A: Po /codes 

utilitdrio Pokodes/BAS (publicado em MS n9 36) tern 
que ser ajustado para sincronizar os comandos DATA contidos 
nele, no caso do programa co-residente tambem utilizar co- 
mandos DATA. Isto e' resolvido com a inclusao de duas linhas 
(mas nao esqueca de retirar da linha 65010 o CLEAR e o 
RESTART): 

65005 CLEAR:DATASINCRO 

65006 READIS:IFIS<> "SINCRO"THEN65006 

• Apendice B: TRSDOS 

O Compiler/BAS e o Pokodes/BAS rodam normalmente em 
TRSDOS. Apenas a linha 9 do Quasar/MD(, onde estao os co- 
mandos que carregam os modulos Z80 escritos para o NEW- 
DOS, e que tern que mudar para: CMTTL", "QUASI/USR" 
e CMD"L", "QUASII/USR". E quern so tern cassete, vai ter 
que continuar sofrendo, pois comandos como DEFUSR, 
DEFFN e o carregamento acima citado terao que ser refeitos. 
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Listagem 4 - Quasar/MIX 



1 REM1234567B9012345678901234567890123456789012345678901234567B9 
0123456789012 

9 CLSsPRINT "QUASAR IV LOAO GAME . 'iPOKE 16561 ,0sP0KE16562,212tPRIN 
TsCLEAR4Q0lPRINT"MEM0RY SIZE SET AT:" ,256«212sPR INT"Load machine 

language... "sCHD'LOAD aUASI7USR"sCMD"L0AD GUASII/USR" 'NewOos 

10 RAND0MsREST0REJ0EFINTI-H,S,Q,ZsG0SUB1810sG0SUB6001iG0T0100 

20 IAi«VARPTR(S5*>!lLI«PEEK<IAI+l>sIHI=PEEK(IAl+2>sIAI=IHH»256*I 

I i :IA!=IA!+(IAI >32767>«65536:IFPEEK<16549> >80THENDEFUSR-= IA ! sRETU 

RNELSEP0KE16526.il ' :P0KE16527 , IN i :RETURN 

30 SS*.=SESsG0SUB20slA! = IA'»imiB'=lA!*2sP0KEIA!,29840/MN5P0K£IBl 

, 29840/HX lU-USR (OR • < MX-MN > /?. > :RE TURN 

40 SS*«ST%iGOSU820sFORIJ«lT02sFORJI-lT02:U»USR(JI»20>sNEXTJI,IJi 

60SUB70IRETUHN 

45 SI»256»PEEK(16549>+PEEK(16548)+5:S'-SI+(S! > 32767 >*65536i POKE 1 

6A72.5:IFPEEK( 1654V) >80THCNDEFUSR»S ! :RETURNELSESH < =FIX (S > /256) «S 

I • »S ' -256»SH t iPOKF I 6526. SL ' SP0KE16527 , SH ! : RETURN 

50 FU=S0R((K1(I>-S1 >C2* (K2( I )-S2)C2 > s RETURN 

60 MN=l60:MX=4MlsDR=.5sF0RI=lT0t ♦ X/ 1 0O:G0SUB3OsNEXTI sRETURN 

70 IFIX-1 THE NRF TURN Fl.SFT = T- . 2tPR INT329B, , IPR INTUSING'KN . H" : T : :R 

ETIIRN 

80 F0RIK=lT0230sNEXTlKsRETURN 

90 FORI"lT023tlsU-USR( INK 1/2X256) sNEXTIsRETURN 

100 01 MD* < 8). K»(3),«S( 3), 0<fl),KH 7), K2( 7), K3 (7 >,S< 7, 7). 8(7.7), KC 

<3,3>:U»«" RAZOAVEL H :Pl=.l 

110 CI ..:( KINTa2fiO.-a U A S A R lV"sPRINT39A0."By Zorro", TA8<57> 

1984",iSS*=SC*sG0SUB20sG0SUB90:G0T013O 
120 SSI=ST*:GOSUB; , 8FORI7=1T04:PRINT3IJ.3TRING%U.EN<E*>,32)jXU«U 
SR(50)«U5R(70.«PRINTaiJ.E*;sF0RI9=lT010:NEXTI9.I7:RETURN 

130 a*(o>=>" . cn-<"8= « "sm<n»" . co»- >o-o ■ "»«*<2>«" . o 

J— J8»8 » "I0*<3)-'- . COK-->0< • "iDKO)»"UARP ENGINES "«0*<1>- 

"SHOR I RANGE SENSORS " 

140 Jl»"= ■:Dt<2)«"L0NG RANGE SENSORS "tD*<3>= 'PHASERS "I0«="0NLY 

GOT' SEN»="ENTERPRISE" 
150 Dt<4>~ 'PHOTON MISSIIFS :D*( 5 >="GALACT IC RECORDS "sG*-"ENER 

GY" 

160 H*»"C 1"sF*=" LErT"!D*(6)="SHIELDS "sD1.(8)»"EMERGENCY"s 

0»(7l="0AMAGE CONTROL " 
170 CLSlPRINTa320. 'SELECAO 00 MELHOR NIVEL . . . : "sPRINTsPRlNT"l - 

Maximo. Ninguea sobrevive, Pronfteus. "sPRINT"2 - Apenas para 
super-hoaens, Hercules. ":PR INT"3 - Para predest inados a heron, 
Zorro." 

180 PRINT"4 - lapossivel , quase. Napoleao. ":PR INT"5 - Aos loucos 
, ludo e 'poss i ve 1 . . . .H i t ler . " iPRINT"6 - Para iniciantes. una rap 
ida destruirao. Dom Pedro." 

190 PRINTiPRINI : INPUT "r.llA FSCOLHA ",LVS IFLV< 10RLV >6THEN2800ELSEK5 
=300+100»LV;IE=LVsZL«7-LVtJC=LV+l 

200 SS*-SC*»GOSUB20:FORIU=lTO3:F0RIK=54TO59«U-USR<226*IK)tNEXTIK 
sF0RTK=69TG64STEP-t:U-USRCV6.IK>:NEXTIK:F0RIK=lT020sNEXTIKsNEXT 
1U 

210 CLSsK*<0>« 'Kl Ingons 'iKt< 1 >="Roaulans "sK*<2)«"0arthlan» " 
sK*(3)»"AtIant IB "SPRINT 'U N I V E R S ea FORMACAO 



220 EO-4000iQOSUB560iai-XiQ2-YiX-8iZ-HXl-.2073iYl-6.2eiP4-.4iX2 
-3.28 

230 YI-l .8IC-100IU-10IP0-UIB9-0IK9-89IT3-.3ITL--.96IE1-500IK4-H9 

'240 U l-EOiQOSUB 830 i FORI -0T07IF OR J-0T07IU-USR (330+1 0XJ--I )) iK-OiN 

-RND(O) I IFN)X1 THEN270 

230 N-N«64lK"<N<Yl)-Z 

260 K-K+(N<X2)+(N(Y2>+(N(.2e>+lN<.0B>+<N(.C3>+(N(.01>lK9-K9-KlPR 

INT863+RND<958> ,*•"• 

270 B-(RN0(0)>T2)iB9-B9-Bia(I,J)-RaC*8aU-INT<RN0(0)»X*Z>lNEXTJ,I 

280 T-K9*(LV-l)»10+.2iTT-T 

290 T1»"MI8SIL "IIFK9>T THENT-K9 

300 K0»K9HFB9<ZTHEN008UB560ia<X,Y)-a(X,Y)-P0iB9-Z 

310 A-Oi IFQl ( 0ORQ1 >70R02<00RQ2>7THENN-0lS-0lK-0l0OTO33O 

320 N-ABS(a<ai.a2)>ia(ai,Q2)»NiS-N-INT(N7P0)«P0lK-INT(N/100) 

330 B-INT(N/P0-K»P0> iG0SUB360iSl-XiS2-Y 

340 G0SUB45iF0RI-0T07iFOR.J-0T07iS<I..J>-ZiNEXTJ,HS(Sl.S2)-?:roRI 

-40T01STEP-1 IU-U8R ( -200) lU-USR ( I ) INEXTI 

350 FORI-OT07iK3(I>-OiX-BiU"USR<-80XU"USR(2)iIFI<KGOSUB590iS(X, 

Y)-:i.-K3i I )-RNO(0)»1000 

360 GOSUB630iNEXTlI-SUFB>OTHENGOSUBS90l8(X.Y>-4 

370 IFI>OTHENG0SUB390iS(X,Y)-5H-I-ZiG0TO37D 

380 IFT<OTHEN2600ELSEIF100aRND(OX»B-LVTHENIFRND(10)>3THEN10000E 

LSESOOO 

390 00SU87B0 ■ IFA-OANDRND ( ) < P4THENG0SUB640 I00SUBB0 

400 IFE<0THENPRINT0S*J*,ElG0T02610 

410 I-ZIH-0IG0SUB570I IF0( I > >0THENPR INTi IX-1 IQOT0910ELSEIX-0 

420 SSS-SC*i008U820iU-U8RC270) 

430 T-T+.0HG0SUB1970iIJ"70iG0SU81620iia-ABS(INT<<Q2«e+ai)/16))i 

IFia>3THENIQ-0 

440 F0RI"OT07lF0RJ-0T07iPRINTai95*I»64*3«J,MID*(Q»<ia) .3«S(I,J)- 

2,3)|lNEXTJ 

450 0NIG0T0490 , 480, 520 , 530, 500, 510 , 540 

460 PRINT8222, "CONDITION ~,C«," "i 

470 NEXTHG0T0940 

480 PRINT3350,0»<6>+~ ~*H», IPRINT3361 , , IPR INTUSING"*HMtl .«"|E1 1 « 

OOT0470 

490 PRINT3286,"CENT0NS "+H»| IPRINT3298. , «PR INTUSING"«IH.H"iT, Ifl 

0TO47O 

500 PRINT3542."STARBASES "+Hti IPR INT35S5, | iPRINTUSING"NN"|B9| IGO 

T047O 

510 PRINT3606,"PRISI0NER "♦H* > IPRINT3619 . , IPR INTUSING"M#" ,K4 , »G0 

T0470 

520 PRINT3414,Gt + " "+H% t JPRINT3423, , iPRINTUSING"NMt»M . tt",E| IGO 

T0470 

530 PRINT3478, "MISSILES "+H», IPRINT3491 , i IPR INTUSING"tt"" ,P , IGOT 

0470 

540 PRINT9670,KfOa>+HS|lPRINTa683.|iPRINTUSING"NN"|K9,iG0T0470 

550 PRINT" "+D*(0)+"SHUT D0UN"|CHR»<30) iG0SUB80iD(0)«D<O)*T3iRE 

TURN 

560 X-INT (RN0(0>«B) i Y-INT<RND(Oi»B> IRETURN 

570 E-E-HIE1-E1-HHFE<EITHENE1-E 

580 RETURN 

590 GOSUB560UFS<X,Y)>ZTHEN590 

600 RETURN 

610 F0RI-0TO7iIFK3<I)>0THENS(XKI),K2(I))"ZiG0SUB590iS<X,Y)-3lQO 

SUB630 

620 NEXTiRETURN 

630 Kl( I)«X«K2(I)-YIRETURN 

640 IFK<Z0RC$-"DOCKED"THENRETURN 

650 IG-0 

660 F0RI-0T07UFK3OX-00RIO.ZANDRNDC0H . 15THENNEXTIRETURN 

670 IFIG-1THEN700 

680 IX«lHG-liCLSiPRINT"«UADRANT",ai*Z|"-"ia2+Z,iP>>INT349,"SECT0 

R"jSl«Zj"-"»S2*Z,HJ«25iE*-~A L A R M"iG0SUB120iPRINTiPRINTiPRIN 

T"C0NDITI0N "|C«» 

690 PRINT" SENSORS DETECTIONI " ,K ,K*( IQ ) IPR INTEN**" ~+G»*~ LEVE 

LSI SHIELDSi"|Elj" TOTAL I "|E 

700 IFRN0<0XP4THENIY-UPRINTK*<1Q)*" "+T*! IH-RND( ) »E1 IMN-120IM 

X»530iDR-HG0SUB30iG0T0730ELSEIY»O 

710 H=K3(I)»P4»RND<0>iK3(I)-K3(I)-HIO09U830iSS*-SNHO0SUB20iU-US 

R<100>iH°H/(FUCP4)iG0SUB570 

720 E«»EN» + " FROM"iN-EHE3-ZiGOSUB750HFH>El/2THENH-150 

730 Al-AiA-HE3-HIFH>149THENG0SUB900ELSEIFIY-lTHENPRINT" PEROID 

0" 

740 A-Al I I-E3INEXT 1GOSUB8O1RETURN 

750 PRINTH,"ACERTOU "|E»i" SECTOR" |K1 ( I >*Z |"," »K2( I >*-Zi 

760 IFEK0ANDE3-ZTHEN2610 

770 PR INT"<r est a»"|N|")" IRETURN 

780 FORI-Sl-ZTOSl+ZlFORJ-S2-ZT0S2+ZHFI<00RI)7ORJ<OORJ>7THEN82O 

790 IFS< I , J ) »4AN0C*-"D0CKED"THEN850 

800 IFK>OANOS(I, J)-4AN0RND<0) >P4THENPRINT8854 , "• UNDOCKABLE »"IQ 

0SUB80IG0T0820 

810 IFS<I,J)-4THENC*-"00CKED"iT-T-T3iEl-0lPRINTTAB(28)CiiUl-E0iG 

0T0850 

820 NEXTJ,1IIFK)0THENC*-" RED "IRETURN 

830 F0RI-0T06iIFD<I)>00RE<E0»PlTHENC»-"YELL0W"iRETURN 

840 NEXTiC*-"GREEN "IRETURN 

830 E-EOlP-PO 

860 IK-llFORI-0T06UF0(I)<-0THEN89O 

870 O(I)-D(I)-UliIFD(IX-OTHENIFIK-lTHENCLSiIK-0iF0RI7-OTO127sPR 

INTai28+I7,CHR*<45),lNEXTI7iPRINT3212," (REPAIR TIME) "IPRIN 

TELSEBB0ELSE89O 

880 PRINTDS(I)|" OK . "ID( I )-0 IG0SUB80 

890 NEXT IRETURN 

900 I-INT<RND<0>a7>l0<I>-0<I>+INT<<3-RND(0>a2>*P0>/P0 

910 PRINT" •»• "+D»< I), "DAMAGED "|CHR*(30) iMN-170iMX»1320iDR-.3i 

F0RIK-1T04IG0SUB30INEXTIK I IFD( 1 > >0ANDA< >2THENIX-1 

920 IFA-ZTHENRETURN 

930 IFA>2AN0RND(0XP4THENG0SU8640 

940 IFK>0ANDA)2THENG0SU8610 

950 IFT<0THEN2600 

960 IFEX1000REO000RE-EK200THENG0SUB2130 

970 PRINT3832.CHRt(31>| 

9B0 CT-K5lA*-""HFC5-" RED "THENMN-130IMX-820I0R-1 iG0SUB30iG0SU 

B30iGOSUB70EL8EIFCt-"YELLOU"THENMN-120iMX-260iDR-HGOSUB30iGOSUB 

30 1 OOSUB 70ELSE00SUB 40 

990 PRINTa832,"Co»ando ?"i lAf-INKEYfi IFA*-""THENCT-CT-1 1 IFCT-OTH 

EN1420ELSE990ELSEA-ASC(A«)-48iPRINTA, 

1000 IFA)90RA<OTHENIFRND(10) >5THEN5000ELSE10000 

iOlO IX-OUFA-0THEN20OO 

1020 0NAG0T01O60.3BO, 1640, 1480, 1040, 1680, 1770, 1740,2330 



1030 GOT0990 

1040 IFD(4))0THENPRINT" "+T**" TUBES BLOCKED"lGOSUB80iGOT0940 

1050 N»15UFP<ZTHENPRINT" NO "♦T»*"E"*F»l008UB80l00TO94O 

1060 IFA-5THENPRINT" "♦D»<4)*"SYSTEM ON C3"| 

1070 IFA-lTHENPRINTaB33,D«(0>i 

1080 PRINT3B96,CHR*(30),iINPUT"Cur«o"|CiC-l*C/43lIFC<Z0RC)9THENl 

420ELSEIFC-9THENC-0 

1090 IFA-5THENP-P-ZlMN-120lMX-460l0R-2l00SUB30iPRINT3911,"TRACKl 

",IGOT01220 
1100 PRINTa919,|lINPUT"UARP"|UlPRINT3896,|HFU<-00RU)9THENG0SUB5 

SO I 80T01 420 

1110 IFU>.2ANDD(0>>0THENI-0iG0SUB910iPRINTa94B,"Max-0.2"|i00SUB8 

0iPRINTa896,CHR*<30) > i00T01100 

1120 GOSUB640IGOSUB360IU1-1NT(RND<0)»40)IIFU1>20RC«-"OOCKED"THEN 

1190 

1130 0NU1G0T01 150.1160 

1140 Ql-2*X-PiQ2-2*Y-PiG0SUB2140lG0T0310 

1150 G0SUB2210IG0SUB900IG0T01190 

1160 F0RI-XT06IIFD(I) )0THEN1180 

1170 NEXTIFORI-OTOXIIFDUX-OTHENNEXTIQOT01190 

11B0 D(I)-OiPRINT" SPOCK FIXED "|D*<I)»". "riGOSUBBO 

1190 U1-U/P0UFWD-P1THENU1-Z 

1200 G0SUBB60iN-INT(U»8> iE-E-T3»NC2iS(Sl ,82>»Z 

1210 SS*»ST*lOOSUB20lFORIJ-64T04STEPy-10IU«USR(IJ)iNEXTIJ 

1220 Yl-Sl+T3iXl-S2*T3i IFT<0THEN2600 

1230 Y-(C-Z)".7B539BIX-C0S(Y)IY— SIN< Y ) 1FORI-ZTON1T-T- .01 1 Yl-Yl* 

Y 

1240 X1-X1 + XIY2-INT<Y1)IX2-INT(X1)HFX2<00FX2)70RY2<00RY2)7THFN< 

440 

1250 IFA-5THENPRINTY2+Z,"."|X2+Z«" ", 1 IiC( 1 ) >0THENKU-1002:G0T01 ? 

60EI SEI7-PEEK< 16417) I I9-PEEK < 16416) lKU-<>'?*Z)«3+12B*64a< Y2+1 ) IPR 

INT3KU," "•■CHR*<140>*~ ", IP0KE16417 , I7IP0KF16416, 19 

1260 IFS<Y2,X2)»Z0RA-5ANDRND<0)< . 15THENNEXT SG0IO1380 

1270 IFA-ZTHENPRINT'BLOCKEO BY " ( 

1280 0N8(V2,X2)-300T01360,1330 

1290 PRINTK*<ia>rlIFA-ZTHENGOSUB900lGOT01370 

1300 F0RI-0T07UFY2< >K1 < I )THEN1320 

1310 IFX2-K2U )THENK3(1>"0 

1320 NFXHK=K-Z«K9-K9-ZiG0T01390 

1330 PRINT" STAR",UFA=5THENPRINT" ABSORBED "+T», 1GOSUB8O1GOTO 

1420 

1340 IFU)RND(0)aP0/2THENG0SUB560lG0T01140 

1350 GOSUB550IOOT01370 

1360 PRINT"STARBASE",IIFA-5THENB-2IG0T01390ELSEIFU)1THEN2610 

1370 Y2»INT<YI-Y)iX2-INT(Xl-X> 

1380 Sl-Y2lS2-X2lS(Sl ,S2)«2sG0SUB610iA«2iG0T03B0 

1390 I7»PEEK(16417)II9-PEEK<16416)ISS*»ST*:G0SUB20IF0RIK-1T02:PR 

INT3Kti.MID*<Ql(ia).S(Y2,X2) ■3-2.3) »:U-USR< 0>i PRINT 3KU. STRING* (3, 

191),iU-USR(0)lNFXTIKlPOKE16417,I7iPOKE16416.I9iPRINT" DESTROYED 

",IU-USR(70)«USR(50> 

1400 IFB-2THENB=0lPRINTU*iB9-B9-Z 

1410 S(Y2,X2)-ZlQ<ai.02>-K»100«B«P0+SsIFK9<ZTHEN2630 

1420 00SUB64OSlFE<0rHEN40() 

1430 G0SUD780UFA-5THEN380ELSEIFD(I ) >0THEN1 X-l IG0T094OELSEG0TO94 

O 

1440 IFA=5THENPRINT T ALHOU" • IGOSUBQOIGOTOI 420 

1450 T-T-T2lQl-INT(ai+U«Y+<Sl*T3)/B)i«2-INT<«P+U»X»<S2+T3)/B) 

1460 IFUK ITHENU1-TPIG0SUB860 

1470 ai-ai-(ai<n)Kai>7)sa2-a?-(Q?<o)«<Q?>7)iGOT03io 

1480 I-3iIF0(I ) >0THEN910 

1490 PRINTTAB(?.- , » ! :lNPUT"PHASERS RrAOYi Units to f ire", XI IFX<-0T 

HEN 1420 

1500 IFXXE El>THi:NPRINT0» 5 E-EUG0r01490 

1510 CLSiPRINT PHASERS SYSTEM FIRED . . . " IPR INT IG0SUB60 

1520 E=E-XIY«KtFORI=OT07lIFK3<I)t«llTHFN16tlO 

1530 IF0(1 )>OTHENX = X"RND(fl) 

1540 G0SUB50iMN»160iMX=330!DR-2:G0SUB30sH-X/(Yn<FUCP4>>lK3<I)-K3 

< I)-HxE3-0lE*-K*( 1Q> •" AT' :N-K3( I ) 

1550 tfOSIIB750«IFK3<IX-OTHENE*-K*(IO) + " DESTROYED I "iMN=240iMX-1 

P50:DR-HG0SUB30iG0T0ir.9n 

1560 IFK)Z0RK3(I) »f 1 /1O0ORRNIX O ) ( P4THEN16O0 

1570 K3(I)-0UFRND(0XT3THENF*. = K1( ia>+" EXPLODED"lMN«12OiMX-13O0 

I OR -2 1 OOSUB 30 1 GOT 01 590 

1580 E*»K*<ia>«" SUHRrNDFRS":MN-150lMX=3B0:0R-2lG0SUB30iT-T-T3iK 

4-K4'7 

1590 l'RINTE*tK«K-7iK9-K9-ZlS(kl(I).K2(I))-Zia(Ql,Q2)-a<ai.a2)-10 



1600 NEXT :PR INT HI KV(ZTHEN26?0 

1610 OOSUBB0:IFK>OTHEN142OELSE380 

1620 T"T- .01 IPR1NT3! J,Dt(l ) 1 "AT aUADRANT " ;«t »Z » " , ",a2+Z j 1 IFI-1 TH 

ENIX-0 

1630 RETURN 

1640 1-21 IFD< I > >0THEN910El SEIX-O 

1650 CLSiSS*=SC*iG0SUB20SH-USR<260)lIJ»64lG0SUB1620iPRINTlPRINTi 

PRlNT:PRINTiF0RI=QI-ZT0ai+ZlF0RJ-a2-ZT0a2+ZiPRINT" "1 

1660 IFKOORI >70RJ<00RJ>7THENPRINT"»»»" S IG0T01720 

1670 a( I.J)-ABS(Q<1 ,J))iG0T01710 

1680 I-5lIF0<I) >0THEN91O 

1690 CLS«IJ»64iPRINTiGOSUB1620iSS*-ST»lGOSUB20iFORIK-OT012iU=USR 

(l)»USR(6)»USR(ll )iNEXTIKiPRINTiPRINTtG0SUB21?0iPRINTlFORI-0T07t 

PRINTT+li" ",IF0RJ=0T07IU-USR<(IM')«(J*1))IPRINT" ", 

1700 IFO( I,JX0THENPRINT'»»«"ji0OT0172O 

1710 F*=STR*(a<l,J))lEt-"O0"«MID»<E*,2)«PRINTRlGHT*(E».3),lG0SUB 

20 

1720 NEXTJsPRINTiNEXTI 

1730 IFA-3THENF0RI=OTO7iG0T0450lNFXTllG0SUB80:G0T0930EL5EG0SUBB0 

UX-UG0T0930 

1740 I-7lCLSHJ»64iG0SUB1620:PRINT:MN = 140sMX-94OiDR-HG0SUB3OiF0 

RI=0T06IPRINT0«< I ) ,TAB<21 > »-D( I ) iNEXTiPRINT "LAST CENTONS", T AS ( 21 

>,T«IFK>0THEN930 

1750 PRINT"INIMIG0S"*F*,TAB<21>,K9lPRINTHNPUT"CFNT0NS para REPA 

ROS"jUl:IFUI(OTHENUl-OiIFRND(10)("5THEN5000ELSE10000 

1760 T=T UllG0SUB860tIFK«0THrNlX-l IG0T0930ELSE3B0 

1770 I»6HFD<I))0THEN910 

1780 INPUT" UNITS TO SHIELDS"iNl IFN>E-E1THCNPR INT0S|E IG0T0178 



1790 Cl^El+N:IFEl(OTHENEl-0 

1800 PR!NTD*(6>+J*sFi!«G0SUBBO!lFK-OTHEN380ELSEIX-llGOT0930 

1B10 SE*-""i5T*»""ISC*-""iSN*»""iCR*-""iGR*»"" 

1820 F0RI-lT030lREADJlSEt-SE*+CHRl(.i) INEXTI 

1830 DATA205, 127, 10, 62. 1,21 1,255, 237, 93, 230, 255, 246, 0,87, 71, 16, 2 



54,62,2,211,233,66,16,254,43,124,181,32,230.201 

1840 F0RI-lT050iREADJiST*-STS*CHR*( J) INEXTI 

1B50 0ATA205, 127, 10, 125, 234, 253, 40, 38, 79, 46, 160, 65. 38. 61, 64, 238, 

2, 50, 61, 64, 2 11, 255, 16, 252, 45, 125, IBS, 32, 238, 180, 200, 68. 1J7, 205, 2 

27 , 3 , 193 , 223 , 183 , 1 92 , 126 . 33 , 229 , 96 , 24 , 218 , 68 , 24 , 247 , 32 

1860 F0RI-lT030iREADJiSC*-8C**CHR*( J) INEXTI 

1870 DATA205, 127, 10, 62, 1,14, 255, 12, 237, 91, 61, 64, 69, 47, 230, 3, 183, 

211,233,13.40,4,16,246,24,242,37,32,241,201 

1880 F0Rl-lT026lREADJiSN*«SN*>CHR* < J) INEXTI 

1890 DATA205, 127. 10, 62. 1,21 1,233, 237, 95, 87, 71, 16, 254, 62, 2, 21 1,25 

3,66.16,234,43.124,181.32,234,201 

1900 F0RI-lT020iREADJlCR«-CR**CHR*( J) INEXTI 

1910 DATA203. 127, 10,1.255,63,125,2,11,120,254,59,32,248,121,254, 

235,32,243,201 

1920 DIMD0*(9)iF0RIJ-0T09iREAD0D*(IJ)lNEXTIJ 

1930 DATACOMMANDS .ENGINES , S. SENSORS, L -BENSORS. PHASERS .MISSI 

LES .GALAXY .SHIELDS .DAMAGE .EMERGENCY 

1940 FOR I-lT029iREA0JlGR*-GR*+CHR*< J) INEXTI 

1950 DATA33. 0,60. 126, 254, 32. 32, 4, 54, 191, 24, 10, 203, 127, 40, 6, 47, 23 

, 63 . 198 . 128 , 1 1 9 . 35 , 62 . 64 , 188 , 32 , 231 . 201 

1960 RETURN 

1970 CLSlF0RIJ=0T011iPRINTaiJ»64.STRING»(64,CHR*(191>),lNEXTIJ 

1980 F0RIJ-lT08HF0<I.J-l)>0THENPRINTail3*64»IJ," • ",D01<IJ>i" " 

I I NEXT IJ ELSEPRINTail3*IJa64,IJ|DD»(IJ)|" ", 1NEXTIJ1PR INT36B9 . " 

9 ",DD$(9>," ",IPRINT3113,~ "|DDt(0>f 

1990 RETURN 

2000 CLS:PRINTTAB( 18)"»" COMMAND CHOICES •■" 

8010 PRINT"0 HELPi Coaandos e Dlcas." 

2020 PRINT "1 Navegacao tea dlrecao (0T0360 graus) S UARP velocld 

ade." 

2030 PRINT"2 Short Range Sensor aostra o conteudo atual do guadr 

ante." 

2040 PRINT"3 Long Range Sensor dctecta a presenca noa quadrantes 

vlzlnhos de Inialgos. Bases, Estrelas." 

20S0 PR1NT"4 Phasers, slsteaa de ataguc d 1 str ibu Ido." 
2060 PRINT"S Photon Missiles, sisteaa de atague dirigido." 
2070 PRINT"6 Galactic Records atual iza laagca da galaxia." 
2080 PRINT"7 Shields de protecao. (Cuidadoi Os caapos de proteca 
o atraea os aisscis inialgos)." 

2090 PRINT"8 Danos e slsteaa de Reparos." 
2100 PRINT"9 Chaaadaa de EMERGENCIA. (Na pior...)." 
2110 9S«-ST*iGOSUB20iPRINTa960,"HIT... "j lU-USR ( 100) 1 IFINKEY*-""T 
HEN2U0ELSE3BO 

2120 FORIK-4T032STEP4IPRINTTAB(IK*1>,(IK)/4,INEXT1KIRETURN 
2130 PRINTaB32."TAKE CARE' LOU ",G*»" LEVELS. ", CHR*(30) , lMN-170 
iHX>1320iDR>2iG0SU830iRETURN 
2140 G0SUB23O0IPRINT388," • SPACE UARP » " j IPR 1NT3192 , "D A N 6 E 

R I ",EN»," GETTING OUT OF GALAXY. " 
2150 PRINT3320."NEU GALAXY QUADRANTS ",Q1 »Z , ". " |Q2+ Z 
2160 PRINT3448,"P0TENCIAL ENERGY DANGER LEVELS"," ", 
2170 J-RND(26)+64IPRINT3576,ENS," MUST REVERSE ",D»(0) 
2180 PRINT3576, "PRESS URGENTLY ",CHR*.< J) ,CHR J( 30) IG0SUB2320I IFAS 
<>CHR*(J)THEN2200 

2190 PRINT"UARP REVERSEO " iSSt = ST*iG0SIIB20iF0R IK-24T08STEP-2IU-US 
R(IK)iNEXTIKiRETURN 

2200 Ql-«l-Zi«2-Q2-ZiT-T-PliIFT<»0THEN2600ELSE2150 
2210 G0SUB2300sSSS-CR«iG0SUB20sU-USR(45>+USR(42>+USR(46> 
2220 PRINTB74,"D A N E R",TAB(94>," ■ ION STORM • ~ 
2230 PRINT3192. "ANTI-MATTER GENERATOR OVERLOAD", TAB (40) ,0*," LEV 
EL DECREASING" 

2240 PR INT3320, "TOTAL ",0*,E," SHIEL0Si",El 

2230 J-RND<26)+64IPRINT3448,EN»," MUST DOUN GENERATORSl PRESS " 
,CHRl(J> 

2260 G0SUD2320lPRINT3448.CHR«(30) 

2270 IFA1-CHR*(J)THENPRINT"GENFRAT0RS C0NTR0LE0" IRETURN 
2280 E-E-50+50»EXP(-T)iIFE<«0THEN2610ELSEIFE<E1THENE1-E 
2290 SS*-GR»lGOSUB20iFORI-lT04lU-USR<0)iFORIK-lT010iNEXTIKiU-USR 
< 0) IFOR IK-lTOlOtNEXT IK s NEXT 1 1 GOT02240 

2300 F0RIK-lT06lSSl-CRliGOSUB20:U«USR(32):SSl-STSiGOSUB2OiU-USR( 
IKa4>iSS«-CRtiG0SUB20sU>USR(RND(64)+127)iSSS-ST<iQ0SUB20iU-USR(I 
K»4+7)lNEXTIK 
2310 RETURN 

2320 FORIK»lT0100lAt«INKEY*Uf At-CHR1(J)THENRETURNELSFNEXTIK!RET 
URN 

2330 CLSHJ-21sEl-"E M E R G E N C Y"iG0SUB120 

2340 PRINTIPRINT"0 COMMANDS" IPR INT"1 INTERSECTOR RADAR" IPR INT"2 
INTERGALACTIC RADAR"lPRINT"3 SOS BASE C0MUNICATI0N"lPRINT"4 ANT 
I-MATTER PLANET FOR RECHARGING" iPRINT'5 SURRENDER" IPR INT"6 AUTO 
DESTRUCTI0N"sPRINT"7 BLACK HOLE" 

2330 PRINT-8 ENEMIE REPORT" IPR INT"9 RECARREGAR CRISTAIS DE LITIU 
M. DEPOSITOS-",ICiPRINT"a Sr Spock lcabra perdas de Encrgla e Te 
apo elevadas...."iPRINTiCT-K5 

2360 CT-CT-liIFCT-0THEN3B0ELSEPRINT3896."<ENTER>?",iA*-INKEY*iIF 
A«"'*"THEN2360ELSEAA-VAL(A*)iPRINTAA,IIFAA(OORAA>9THEN5000ELSESS% 
-STf IG0SUB20 

2370 IFAA-0THEN2000EL SE0NAAG0T023B0 , 2430 , 2440 . 2450 , 24B0, 2490 , 250 
0.2560,2700 

2380 CLSiFORIK-0T095iSET(IK.0)iSET(IK.47)lNEXTIKlF0RIK-OTO47lSET 
(0,IK)ISET(96,IK)INEXTIK 

2390 FORI-OT07lFORJ-OT07lI7-Ial28+J»6*2lI9-I7+64lU"USR<10)«IFS(I 
,J)-lTHENPRINT3I7,STRINGt(2,176),lPRINTai9,STRING*<2,131),lNEXTJ 
,IELSEPRINT3I7-2.STRING*(6,191 ) , IPRINT3I9-2. STR ING*( 6, 191 ) , INEXT 

J.I 

2400 I7«Sl«12B + S2"6 + 2H9-I7 + 64lPRINTai7,STRING»(2,143)| 1 PRINTS 1 9 

.STRINGf(2,lBB), 

2410 PRINTa50.EN*,iPRINT3114,"Qi",ai*Z,",",Q2+Z,iPRINT3178."Sl", 

S1+Z,",",S2+Z, IPR INT3497. "SECTOR RADAR", 

2420 PRINTa945,"HIT..",lG0SUB25BOsIFIK-9THEN142OELSET-T-UE-E-10 

0ICLSHX-UG0T0950 

2430 CLSiPRINT"QUADRADAR",TAB(40)EN»," Qi",Ql*Z,",",a2*ZiPRINTl I 
NPUT"UHAT QUADRANT TO RESEARCH (Ql , 82) ",L ,MIPR INTiPR INT"RADAR SC 
AN...", IFOR IK-20T040IU-USR( IK) INEXT IK IPR INTO (L-l.M-1) 

2431 F0RI-0T07iFORJ-OT02HI-4O4+3aI+JIIFJ-lTHENPRINTaiI,CHR«(14O 
),IPRINT3II+576,CHR*(140),ELSEPRINTaiI,CHR»(188),lPRINTaiI*576,C 
HR«(143)| 

2432 NEXTJ,IlF0RI-0T07iPRINTa467*I»64,CHR*(183), IPRINT3492*I»64, 
CHR*( 187), INEXTI 

2433 JJ-«1«64.Q2.3.471 

2435 F0RJI-lT02iF0RI-0T07lF0RL-0T07lIFABS(Q(I,L))>9THENA*-"a"ELS 
EA1-" * 

2436 FOR J-0T02I II-469*I»64*La3*JlPRINTaiI ,CHRS( 191 > , I IFJ-1THENPR 
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QUASAR IV: UMA AVENTURA COMPILADA 



INT3II 1.A*,EISEPRINT3II-1,~ "» 

2437 IF 1 1 - J JTHENPR INT3 1 1 -3 ."(♦)" , 

2438 NEXT J, Li PR INT3I 1-24, STRING* (24, 128), 

2439 NEXTHNEXTJHE-E-200IT-T-1 IGOT0380 

2440 CLSiPRINT"0» cnvardea n»o v i vet. . ."iPRINTiG0SUB80iPRINT"U» 
gig faria colli nrlhor . . ."1GOSUBBO1CLS1 I J-24iE«="»< SOS BASE )•" 
iG0SUB120lPRINTlPRlNT"Alerta vprmelho coaunicado '■ Frota Estela 
r " 

2442 F0RI-0T03iF0RJ-0T03tKC( I , J)»RND< 101 > -1 iNEXTJ, UPRINT"Anal Is 

c dos codigos de Tranialliao (X de Incerteza) i":PRINT"C00E K 

R A" 

2444 F0RI-0T03lPRlNTI,lF0RJ«0T03lPRINTUSING"RK»«»l"»KC(I.J>,lNEXTJ 

iPRINTiNEXTIiPRINT"SOLICITAR 'A BASE SUA POSICAC <Sr Spock leab 

r» que «e a 

■entagea for Intercept ad* . babau baae. . . < Y/N)?"iG0SUB2580 

2446 IFIK-9THEN1420ELBEIFA»( >"Y"THEN3B0 

2447 INPUT"Codigo de Tx", 1 1 IFKOORI >4THEN1420ELSEI I»KC( 1 , 10) IPRI 
NT"Probabil idade de Intercepticao - ",II iSS*-ST%iG0SUB20iPRINT"T 
XI", lF0RJ-lT010tPRINTRND<9> 1 UI-USR ( 10) INEXTJIPRINT 

2448 PRINT"RXi",iF0RJ«1T010iPR[NTRND(9>, .U-USR(20>iNEXTJiPRINTiP 

R INT"DEC00ER 1 " s XG0T02650 

2430 CLSiS3"RND(8>-US4=RND(8>-liIFS(S3,S4>< >1THEN2450ELSEPR INT- 
NEAREST ANTI-MATTER PLANET AT SECTOR 1 ",S3*Z ,"," »S4*ZiPR INVUNDET 
ECTABLE BY SRS'xPR INTiPRINTFMi, - HAS 20X CHANCES TO EXPLODE IN 
RBIT EACH 400 MEGAJOULES OF REFUEL~xPRINT 

2460 PR INT" (Y/H) "" XG0SUB2580 x IF IK-9THEN1 420ELSEU-USR ( 50 ) X IFAt< > " 
Y"THENT-T-.5iE-E -50xGOT038OELSEIJ-448xE*="0RBITx "IGOSUB 120IPRIN 
T"PRESS '7.' TO STOP REFUEL iSl=S3iS2-S4 

2470 PRINT8512.G*;" LEvri " jE I IFRNO(O) < «ZL/20)THEN2610ELSEE-E*1D0 
tT-T-.liIFINKEY»»"Z - THEN380ELSEFOR IK-1T020INEXT IK XG0T02470 
2480 CLSxIFRND(OX.STHENPRINTK*<IQ)," Nao ace 1 1 araa"iG0SUB80iT-T 
-UGOT0380ELSEPRINT"OK' ",RND( 3000) : "Capturadoi. SCORE 0l~lST0P 
2490 CLSlCT-10lF0RI«10T00STEP-liPRINTI,iF0RIK-lT030!U-USR(IK*5)l 
NEXTIKINEXTIXG0T02610 

2300 CLSXPRINT-MANIIAL CONTROL TO ESCAPE THROUGH A BLACK H0LEl"xP 
RINT"<Z,X) AND <<,)>" IPR INT xPR INT"HININAL CHANCES. (Y/N>?~ I G0SUB2 
580XIFIK-9THEN1420ELSEPRINT8426, "TRAVEL TIHEi"i 1FAK >~Y"THENT«T- 
1 lG0T0380ELSECT«99tvL»46l VM=?4 

2510 F0RI-0T08iF0RIK-22»2"IT069-2»HSET(IK,13«l>iSET(IK,35-I)iNE 
XTIKiF0RIK-t3*IT035-IxSET(22+2aI.IK)lSET<69-2aI,IK>iNEXTIK 
2520 FORJ«lT01Hvl-RND<3)-2lU2»RND<3>-2lRESET(VL,vM)ivL-vL*vl/2i 
VM-vN*v2/2ilFP0INT(vL,VM)»-lTHEN2610ELSESET(vL,vM> 
2530 I7-PEEK( 14344 >U9-PEEK( 14368) Iv2-0i IF I7-1THENU2-1ELSEIFI7-4 

THENV2— 1 

2540 vl-0UFI9-A4THENvl = lELSEIFI9»16THENvl — 1 

2550 RESET (WL,WM)iyi-UL*WlxVM-VH*W2lIFP0INT(WL,WM)—lTHEN2610ELS 

ESET<Vl. ,YM> XU-USR < 20 >xPRINTa439,CT»" ", xCT-CT-1 INEXTJ, I XE-E-300 

IT-T-3IG0T0U40 

2560 CLSlPRINTK»(IO>," SENSORS"iPRINTiFORI-OT07i IFK3( I > (-0THENNE 

XTI£LSEPRINTI*l.Kl(I)*Z,",",K2(I>*Z,G*,K3(I>iNEXTI 

2570 PRINTiPRINTEN»," SECTOR 1" »S1*Z, ", ",S2+ZiE»E-100iT-T-l xPRINT 

"HIT.."iG0SUB2580UFIK"9THEN1420ELSEG0T0380 

2580 CT-K5UK-0 

2590 A*-INKEY*i IFA«-""THENCT«CT-1 1 IFCT-OTHENIX-1 1 IK-9IRETURNELSE 

2590ELSERETURN 

2600 CLSiPRINTiSS*»ST*iGOSU620iFORIK-1TOK/2*10H»RND(6>iJ-RND<9> 

tU-USR(I)*USR(J>*USR(9>!NEXTIKiPRINT"V0CE NAO E' ETERNO. Acabou 

o TEMPO. "XGOSUB80XGOT02620 

2610 CLSiE-OxPRINTxPRINTiMN-170iMX»t320xDR-.3tFORIK-lT05iOOSUB30 

iNEXTIKiSS»-SN*iG0SUB20iU-USR(2000)iPRINTENS," DESTROYEDI AH, AH 

...AMI" 

2620 IFK9-00RT<«0THENCLSxG0SUB45lG0SUB10530xCLS 

2625 IJ=384lE*-"FR0TA ESTELAR i"iG0SUB120iPRINTiPRINT"Aval I acao d 
o coaandante da Enterpr liei"iPRINT"In mgos vl tor ioioH",K9 
2630 IFEl(-00RE<-0THENN-0ELSEN-INT((50a(K0-K9)/K0>*<15aK4/K0>*(l 

5«T/TT?*(20/LV)> 

2640 PRINTlPRINT'YOUR INFINITESIMAL RATING! ",NI IFN)79THENPR INT" 

Falha t ecn ica. . ."ELSEIFN>59THENPRINTU*ELSEIFN( 40PRINT"C0NDEC0RAC 

AOi Corte Marcial " "ELSEPRINT"C0NDEC0RACA0i Que* labc •■ outra o 

portun I dad*.. ." 

2645 LPRINTxENO 

2650 F0RI-0T07iU»USR(lO)xFORJ-OTO7xU»USR<20) 

2660 JII-ABS(«(I.J)/ , 100>-ABS(FIX(Q(I,J>/100)>UFJI!>-.10THEN2680 

ELSENEXTJ.I 

2670 PRINT"... INTERFERENCE INIMIGA IMPEDE RECEPCAOI "XG0T02695 

2680 PRINT" X.Y-",<I*l>KJ*i)|" X*Y-" , 14 J*2 lOOSUBBOxGOSUBBOx T-T 

-UE-E-100lIFRND(10D-D-IITHEN380 

2690 «<I,J)-Q(I,J)-10iB9-B9-lxIJ-960iEt-"ALERTA VERMELH0"XG0SUB1 

20iPRINTiPRINT"FR0TA ESTELAR INFORMA ... BASE DEPTRUIDAI," 

2695 G0SUB80IG0T0380 

2700 CLSUFIC-OTHENPRINT"SR. SPOCK 1 Nao ha'iali depoiltoi d> cr I 

•till de 1 it lua 

duponiviis na gala*' a."xG0SUB80xT-T-l XG0T0380 

2705 PRINVENERGIA ,EIPRINT"SHIELDS. . x~,EHPRINT"INIMI00S. 1", 

K9iPRINT-DEP0SIT0Sl",IC 

2710 PRINTiPRINT"D«ieJa tentar ■ triveuli di Zona Neutra no Mod 

ulo de Service 

para alcancar ua depoilto de Crlitili d« Lit lua ( Y/N)?"iG0SUB258 

0UFIK-9THEN1420ELSEINPUT"MegaJoul«i p/ o Modulo de Servlco",I 

2720 IFI>-ETHENPRINTiPRINT"IMPOSSIUELI I "xG0SUB8OxT-T-.5iG0T03BO 

2730 G0SUB45iE*-STRING*<30. 32) XU-USR< -2000) IFOR IJ-1T010IPRINT897 

O.E»,iU»USR<100)lPRINT8970,"NAvEGACAOi Controlei <Z,X> • <<,>). 

At encao...", INEXTIJ 

2734 IFPEEK( 16549) >80THENDEFUSR—5300ELSEP0KE16526,76iP0KE16527, 

235 

2735 E-E-HU-USR(0)iG0SUB80 
2740 IC-IC-1IE-E+HT-T-H00T0380 

2800 CLSiPRINT"Coaecaao» Ml . . ."IG0SUB80IG0T02610 

5000 CLSHJ-46BlEt-"( DANGER >"iG0SUB120iG0SU845iES-STRING* 

<64,128)iCLS 

5005 FORIJ-lTO3lPRINTaO,E*iiGOSUB5l00xPRINT80."COMPUTA0ORi Atenc 

ao! Atencaol Foco de particular gravi tic lonil«."iG0SUB10400lNEXT 

5010 FORIJ-lTO3tPRINT312B,E*,iG0SUB5100iPRINTai28,"SENS0RESi Flu 
ko gravitaclonal forteiente concent rado."iG0SUB10400iNEXTIJ 
5015 F0RIJ"lT02tPRINTa256,E*,iG0SUB5100iPRINT3256,"ENGENHARIAl M 
otorei detratorea imuf ic lent ei. Telai at i vadai I "IG0SUB10410INEX 

5020 F0RIJ-lT02lPRINTa384.Et,iG0SUB5100iPRINTa3B4,"SR SPOCKi Alg 
loaerado Globular Neutron Ico. Centro coaput ado."iG0SUB10410iNEXT 



3023 U-USR (-2000) iF0RIJ-lT020iPRINTaS12,E*iiU-USR< 100) IPRINT8512 

, "NAVEGACAOx Control*! <Z,X) • <<,>>. Pinitrmdo no caapo d«..." 

IU-USR (300) INEXTIJ 

5030 CLSiPRINT3464,CHRS<23),"<<BUASAR IV> >"i008UB10360 

5035 IFPEEK ( 16549) >BOTHENDEFUSR— 10900EL8EP0KE16526, 10BIP0KE1632 

7,213 

3040 CLSiU-USR(0)HFI»OTHEN2610 

3043 CL8iPRINT8968,"SENS0RESl Indicia diltorcio eipacial ultripi 

aiada.. .", iEl"El-i00iG0SUB80iAf-INKEY*iG0T03B0 

3100 F0RI7-1T030INEXTI7IRETURN 

6001 X*-"12345678901234567890123456789012345678901234567B9012343 

678901234367890" 

6002 Y*-"123456789012345678901234367890123456789012345678901234" 

6003 Il-PEEK<WARPTR(XS)*l)lI2-PEEK(WARPTR(X«)*2)iII-H*I2i236 

6004 II-II*(II>32767)a65536 
6003 P0KE16422.IllP0KE16423.I2 

6006 Jl-PEEK(vARPTR<Y*)*l)U2-PEEK<VARPTR<Y*>*2>lJI"Jl*J2»236 

6007 P0KEII*l,JHP0KEII*2,J2iRETURN 
10000 G0SUB43ICLS 

10030 GOSUB 10400 

10040 PRINT-A LERTA WERMELHOI CURSO DE COLISAOI AT 

ENCAO I " 1 BOSUB 1 0400 1 GOSUB 1 0400 1 GOSUB 1 040O 

10050 PRINT"SENSORESi INOICAM PRESENCA DE MINAS ESPACIAIS A FREN 

TE I " ■ GOSUB 1 0400 1 GOSUB 1 0400 1 OOSUB 1 0400 

10060 PRINT"C0MPUTA00Ri MANOBRAS EVASIVAS INEFICAZES. RAIOS TRAT 

ORES I "IG0SUB10400I GOSUB 10400IG0SUB 10400 

10070 PRINT"ENGENHARIAI TELAS ATIVADAS. VELOCIDADE RELATIWA A",R 

N0(B),"« LUZ.">OOSUB104iO 

10080 PRINT"SENSORESl DISTANCIA",RND(900> »"MGM. MINAS ANTIMATERI 

A KLING0N."iD0SUB 10410 1 GOSUB 10410 

10090 PRINT"ENGENHARIAl FORCA AUXILIAR LIGADA. VELOCIDADE REDUZI 

DA. "I GOSUB 10420 

10100 PRINTiPRINT"COMPUTADORi A T E N C A I MANOBRAS MANUAIS < 

UP) e <D0UN >..."! GOSUB 10420 

10110 GOSUB 10350 

10160 U-USR ( -3000 >iU-USR( 30 )UX-15872HZ-0iCLSi GOSUB 10220 1 GOSUB 1 

0280iP0KEIX+l,32«P0KEIX,62lF0RI-lT0250iNEXTHU-USR(30>lP0KEIX,32 

IP0KE16672.3 

10170 I Y-PEEK < 14400) 1 IFIY-8THENIX-IX-65I IFIX< 15360THENIX»IX*65iG 

0T01O200 

10180 IFIY-16THENIX-IX*63HFIX>16317THENIX-IX-63iGOT010200 

10190 IX-IX+1 1 IFPEEK ( IX )< )32THEN10210 

10200 P0KEIX,62iP0KEIZ.32UZ-IXiF0RI-lT0ZLiNEXTI 

10210 IFPEEK ( IX )=42THEN10300ELSEIFPEEK(IX>=46THEN10330ELSE10170 

10220 ZR-13360 

10230 NN-10+5*IE 

10270 IR-RND<NN)+2IZR-ZR*1RXIFZR)16379THENRETURN ELSEPOKEZR ,42iG 

OT010270 

10280 IU»63iF0RI»lT08lPRINTaiU,STRING*<I,".">,lIU-IU*63tNEXTIHU 

=IU*l:F0RI"8T02STEP-liPRINTaiU,STRIND*<I.".");iIU-IU*65iNEXTI 

10290 RETURN 

10300 ZB«liPOKE16672.6xPOKEIX,191lPOKEIX*l,140xPOKEIX-l,140lPOKE 

I X-64 , 1 76 x POKE IX*64 ,131 IU-USR < -190 ) xU-USR (15)1 U-USR ( -2000 ) 1 U-USR 

<90> 

10310 P0KEIX.166tP0KEIX»l,136tP0KEIX-l,132iPOKEIX-64,164iPOKEIX< 

64, 1 37 IU-USR ( -900 > IU-USR ( 100) 1 U-USR ( -1000 ><U-USR< 300) XU-USR (-100 

>l U-USR (200) 

10320 P0KEIX.132iPOKEIX»1.12BiPOKEIX-l,128lPOKEIX-64,128iP0KEIX+ 

64, 1 28 x U-USR ( -1000 )IU-USR( 200 >XP0KEIX, 128 IU-USR( -5000) iU=USR( 200 

) ICLSIG0T02610 

10330 ZB-0JCLStPRINTCHR«(23)iF0RI»lT04iPRINTa256. "SUCCESSFUL PAS 

SAGE" IU-USR ( 8000 > IU-USR ( 50 > 1 PR INT3192 , " 

"IF0RJ=1T0100INEXTJ,I 
10335 PRINT3256,CHR»(30>,"Dif iculdade aunent ando. . ." 
10340 G0TO1O39O 

10350 CLSlPRINTCHR*(23)xPRINT3464,"<<< IMPACTO >>>" 
10360 FORI-80T020STEP-lxU-USR(-200)lU-USR(I)lNEXTIiFORI-19T01STE 
P - 1 xU-USR ( -500 > 1 U-USR < I > INEXTI 

10370 IJ»898»E*-"MAN0BRAS EVASIWAS EM MANUAL mm"xG0SUB120xPR INT 
3898.STRING*(50," "), 

10375 IJ-910iE«-"ABRIR TELA vISUAL"xG0SUB120lG0SUB80xG0SUB45 
10380 RETURN 

10390 GOSUB10430lAS-INKEY*iOOT0380 

10400 FOR 1-1 T03iU-llSR( -3000) IU-USR( 80) IFOR J-1T030 INEXTJ, I x RE TURN 
10410 FORI-lT06iU=USR(-2000)lU-USR(10)iU-USR<-3000)iU-USR(80)iFO 
RJ-1T030INEXTJ.HRETURN 
10420 FOR 1-1 T07 IFOR J- 1T020IU-USR( -100) IU-USR < J) INEXTJ, 1 1 RETURN 

10430 ZR-.l 

10460 F0RI-1T0100INEXTI 

1 04B0 FOR I » 1 TOZL 1 U-USR ( -2000 ) 1 U-USR ( 20 ) 1 U-USR ( 1 5 ) 1 U-USR ( 20 > I U-US 
R(-5500)iU-USR(13)iNEXTIiZL-ZL+llIE-IE-llIFIE-0THENIE»HZL-6 
10490 IFZL-6THENIR-15360lCLSlPRINTCHR«(23)lPRINT3448,"Sorte, por 
enquan to. "iGOSUB 105401 AS-INKEYl I G0T038O 
10500 P0KEl6772,102iU-USR( -10000) iU-USR (20) IU-USR ( 13) iU-USR( -300 
0) IFOR I-lT02iU-USR( 15) IU-USR ( -1000) IU-USR( 16) IU-USR (-3000) IU-USR 
( 18 > IU-USR <- 10000 >IU-USR( 10 )IU-USR( 13) 1 U-USR (-3000) INEXTI IU-USR ( 
-3000 )iU-USR( 15 >iU»USR( 16) IU-USR (15) iU-USR (-30000) 
10510 U-USR<18> 
10520 RETURN 

10330 C1-22IG0SUB10550IC1-18 iGOSUB 10550 iCl-151 GOSUB 10550IC1 -12 iG 
OSUB10570iCl-10lDOSUB10570iU»USR(9)iFORI-lT0100lNEXTHFORK-lT02i 
GOSUB 1 0500 1 NEXTK 1 U-USR t-500 > 1 CLS 

10540 U-USR (-300) IFOR I -40T01STEP-1 1 U-USR ( I) INEXTI IRETURN 
10550 U-USR (-10000) iGOSUB 105901 U-USR (CI) 1 GOSUB 10590 1 U-USR (-2700) 
1 GOSUB 10590 1 U-USR ( CI ) 1 BOSUB 10590 1 U-USR < CD 1 GOSUB 105901 U-USR (-100 
00) IGOSUB 10590iU-USR<Cl)iOOSUB10590iU-USR( -2700) 1 GOSUB 10590 IU-US 
R< CI ) 1 OOSUB 10590 1 U-USR (CI) 1 GOSUB 105901 U-USR ( -6000 )iG0SUB1059O 
10555 U-USR(Cl) 

10560 GOSUB 10590 iU-USR( -8000) 1 OOSUB 105901 U-USR (CD IGOSUB 10590 1 U- 
USR( CD IGOSUB 10590 IU-USR (-2700) IU-USR (CD 1 U-UiU-USR (CD 1U-U1U-US 
R(Cl)lRETURN 

10570 GOSUB 10590 IU-USR( -22000) 1 GOSUB 10590 IU-USR (CI ) IGOSUB 10590 IU 
-USR( -2700) 1 G0SU8 10590 IU-USR (CD 1 GOSUB 105901 U-USR (CD IGOSUB 10390 
IU-USR (CI > IGOSUB 10390 IRETURN 

10590 PRINT3472,"E« brivd Oumr v."l0UT253,0i IR-15360*RND( 1000 
>iP0KEIR,253HS-13360+(RND(S00>a2>iP0KEI8,254 
10600 PRINTa472,STRING*<20," "> , I0UT233. 15IRETURN 
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INSTRUME NTOS 



* Decida sem duvidas, erros de mformagao, falhas de estoque 
ou vacilacoes nas entregas. 

— Completa linha de instrumentos de teste e medicao. 

~ Garantia de ate 2 anos. 

— Assistencia teen ica propria permanente. 

— Sistema inedito de reposicao quando em 
garantia. 

— Atendimento personalizado para 

todo o Brasil. 



INFORMATICA 



* Ponha-se em dia com o 

future 

— Microcomputadores 
Prologica. 

— Assistencia tecnica 
propria. 



— Revendedores em todo 

o territorio nacional com a 
melhor assessoria para ampa- 
ra-lo no momento de decisao, 
mesmo que voce so precise 
de uma informacao mais 
precisa sobre os 
equipamentos. 





SUPRIMENTOS 
CPD 



AJUDANDO 

A DESENVOLVER 

TECNOLOGIA 

VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE 



FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 - Sao Paulo - SP 

PBX: 223-7388 
Vendas Sao Paulo - Tels.: 220-7954/222-3458 
Vendas outros Estados - Tels.: 223-7649/221-0147 
Telex: 1131298 



* Unimos o util ao agrada- 
vel: qualidade/preco. 

— Pronta entrega para todo 
o territorio nacional. 

— Estoque com os mais 
variados produtos. 

— . Fitas impressoras 

Formularios 

Etiquetas 
. Disquettes 
Mesas 
. Estabilizadores 

. Modens 

Pastas para 
formularios 

. etc. 
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A memoria do equipamento possui alguns truques que apenas com uma 
analise mais profunda e possivel descobrir, como vamos ver neste artigo 



Apple: 



o map a da ROM 



Aldo Felicio Naletto Junior. 



Apartir deste numero, em trSs 
artigos sucessivos, o leitor fi- 
card mais familiarizado com 
as rotinas da mem6ria ROM 
do Apple. No primeiro trabalho ha uma 
introducffo mais ou menos teorica. Na 
pr6xima edicao apresentaremos o mapa 
das rotinas da ROM e encerraremos o 
artigo com um mapa geral sobre a di- 
tribuicfo da mem6ria. 

As rotinas das ROMs do Apple for- 
mam um autentico labirinto de Creta, 
como na mitologia grega, onde o usu- 
ano, se na"o agjr como Teseu, guiando-se 
com um novelo de 15 para chegar ao mi- 
notauro e voltar, pode se perder. Com o 
trabalho que agora apresentamos, em 
sua primeira parte, procuraremos ofe- 
recer informacOes para utilizacSo mais 
proveitosa do computador. 

Antes de mais nada e necessario sa- 
ber algumas coisinhas a respeito dos 
critdrios de ocupafSo de mem6ria do 
Apple. Basicamente, os 65536 endere- 
50s que o 6502 pode acessar sao di- 
vididos em quatro faixas, na seguinte 
seqiiencia : 2 Kb para a memoria do sis- 
tema, 46 Kb para os programas e va- 



* Nota do autor: Voce conhece a lenda de Te- 
seu e o Minotauro? Bern, Teseu foi encarre- 
gado de penetrar no intrincado labirinto de 
Creta e ma tar o Minotauro, um monstro de 
cabeca de touro e corpo de homem que mora- 
va Id. Teseu nao tin ha o mapa do labirinto e 
por isso levou um novelo de Id que foi desen- 
rolando pelo caminho. Assim, Teseu matou 
o Minotauro, seguiu o fio ate" a saida do labi- 
rinto e entrou para a histdria. 
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riaveis do BASIC, 4 Kb para entrada e 
saida e 12 Kb para as ROMs (ou 
EPROMs) do interpretador e sistema 
operacional. 

A mem6ria do sistema e ocupada da 
seguinte maneira: de $00 a $FE ficam 
as variaveis do sistema; de SFF ate 
$10F, um buffer que e usado pelo 
BASIC para traduzir valores binarios 
para strings (como na funcSo STR$); 
de $110 ate* $1FF, a pilha do sistema 
e do BASIC (guarda principalmente 
dados de FORs, enderecos de retorno 
de sub-rotinas e resultados interme- 
diarios de expressOes); de $200 a 
$2FF, o buffer do teclado (onde sa"o 
armazenados os caracteres que digi- 
tamos durante as entradas de dados, 
linhas de programa ou de comando); 
de $300 a $3FF fica a area de veto- 
res (na verdade, os vetores s6 ocupam 
esta drea a partir de $3EF - ou 
$3CF, caso o DOS esteja presente - 
e o resto fica livre para o usuario) e 
de $400 ate $7FF a memdria de video. 
Esta serve basicamente para armaze- 
nar as 24 linhas do video, o que e fei- 
to pelo Apple segundo uma seqiiencia 
toda esquisita: em $400 come$a a 
primeira linha, a qual 6 seguida pela 
nona em $428, pela de'cima-se'tima em 
$450 e em $478 por oito bytes que 
sSo reservados para uso do cartao que 
ocupar o slot (estes bytes nao apa- 
recem no video), em $480 come9a a li- 
nha 2, que e seguida em $4A8 pela li- 
nha 10, em $4D0 pela 18, e em $4F8 
pelos oito bytes reservados ao slot 1. 



Em $500 temos a seqiiencia de linhas 
3, 11, 19 e os bytes do slot 2, e em 
$1580 as linhas 4, 12, 20 etc. 

Os 4 Kb de entrada/saida na verda- 
de nSo contem mem6ria. O que ha 
sao circuitos pendurados em certos en- 
derecos, de forma que o simples acesso 
a eles modifica certas caracteristicas 
do hardware (como modo texto ou gra- 
fico, alta ou baixa resolucSo etc.). Ha 
tambem algumas posicQes em que o sis- 
tema le dados, como sinais do gravador 
ou c6digos de teclas pressionadas e ou- 
tras que sa"o reservadas para ROMs dos 
cartOes de expansSo. Esta area e a me- 
m6ria sera"o vistas com mais detalhes na 
tabela Mapa Geral da Memoria, em ou- 
tro artigo. 

Os 48 Kb do BASIC sffo assim dis- 
tribuidos: os programas comegam na po- 
sicSo $800 (na verdade este endereco 
contem sempre 00 - e um truque do 
interpretador - e o programa comeca 
mesmo em $801) e sa"o seguidos pri- 
meiro pelas variaveis simples e depois 
pelas indexadas. Apos as indexadas co- 
meca o espaco string que vai ate a posi- 
c5o estabelecida por HIMEM (inicial- 
mente acertada pelo sistema no primei- 
ro endereco apos a ultima pagina de 
4 Kb disponivel ; quando o DOS estd 
presente, HIMEM e colocado logo abai- 
xo dele, reduzindo a memoria dispo- 
nivel para cerca de 35 Kb). 

O espaco string e ocupado pelas strings 
propriamente ditas, isto e, pelas cadeias 
de caracteres que compOem cada uma 
delas. Na area de variaveis o que fica 
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mesmo £ um conjunto de ties bytes pa- 
ra cada string (chamada pela Microsoft 
de string descriptor (descritor de string) 
e daqui para a frente referido como 
DESCR), sendo o primeiro a exten- 
sSo e os dois seguintes o endereco on- 
de ele realmente estd. 

O espa£0 string vai sendo ocupado de 
tras para a frente, o que signiiica que 
cada nova string que aparece 6 colocada 
antes das mais antigas. Cada vez que 
uma delas e' alterada, o sistema usa um 
novo local para armazena-la. deixando 
sem uso o antigo. Da para perceber que 
logo a memoria estara entupida de 
strings sem uso, misturadas as ainda vi- 
lidas. Quando isso acontece o sistema 
faz um rearranjo de mem6ria (chamado 
pela Microsoft de "garbage collection", 
coleta do lixo), jogando para o final de- 
la as strings vai id as e deixando o resto 
novamente livre. 

A mem6ria do BASIC na"o 6 apenas 
ocupada pelo programa e suas varid- 
veis. Tambem as paginas graficas 1 e 2 
de alta resolucSo e a 2 de baixa parti- 
lham dela. Estes inquilinos sao bastante 
incomodos em certas condic5es (es- 
pecialmente a pagina 2 de baixa resolu- 
cSo, que ocupa o mesmo lugar do pri- 
meiro Kb do programa), pois o sistema 
na"o sabe quando eles estao sendo usa- 
dos e continua a armazenar coisas ali. 
A pagina 2 de baixa resoluc^o fica entre 
$800 e $BFF, a 1 de alta resolucao 
entre $2000 e $3FFF e a 2 entre 
§4000 e $5FFF. 

Os liltimos 12 Kb sao ocupados por 
ROMs ou EPROMs que contem o 
programa interpretador e o sistema 
operacional, sendo que o primeiro 
ocupa 10 Kb e o segundo os 2 Kb 
restantes. Este ultimo e quase to- 
talmente auto-suficiente, isto e, nao hi 
nenhuma chamada ou salto para as ro- 
tinas situadas fora dele, com exceqSo de 
alguns jumps para as posicQes $E000 e 
SE003, que devem conter os pontos de 
entrada a jrio e a quente, respecti- 
vamente, da linguagem ou programa re- 
sidentes. Para quern nao estd acostuma- 
do com estes termos, ponto de entrada 
ou partida a frio quer dizer iniciali- 
zacSo geral do sistema. Todas as condi- 
c6es iniciais sa"o estabelecidas, comecan- 
do tudo do zero. Partida a quente, por 
sua vez, e equivalente ao RESET do 
Apple : na"o ha perda de dados ou condi- 
9Ses correntes do sistema. 



O BASIC NO APPLE 



Voce sabia que o BASIC do seu 
Apple e interpretado? Isso quer dizer 
que o programa em BASIC nao e' con- 
vertido para a linguagem de maquina, 
mas sim fica na memoria mais ou menos 
na mesma forma em que foi digit a do, 
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sendo interpretado por um programa 
monitor, o qual vai reconhecendo as ins- 
trucOes e chamando as rotinas em lin- 
guagem de maquina que realmente as 
executarSto. 

O programa interpretador consiste, 
basicamente, em um loop no qual o 
computador espera que a entrada de 
uma linha pelo teclado (ou periferico 
selecionado por IN#), converte-a para 
um formato comprimido (eliminando 
espacos e substituindo as palavras- 
chaves por c6digos de um s6 byte, cha- 
mados tokens) e a armazena na memo- 
ria de programas ou salta para sua inter- 
pretacSo, dependendo de ela ser come- 
cada por um numero ou na"o. Em 
qualquer dos dois casos o sistema sem- 
pre acaba retornando ao ponto ini- 
cial, onde aguaidara a entrada de uma 
nova linha. Este ponto inicial € conhe- 
cido por READY no TRS 80, e seni 
chamado assim tambem aqui. 

As linhas convertidas e armazenadas 
na mem6ria ocupam sempre cinco bytes 
a mais que sua pr6pria extensSo. Os dois 
primeiros s5o ponteiros que indicam o 
inicio da proxima linha, os dois seguin- 
tes contem o numero da linha atual e o 
ultimo byte da linha 6 sempre um 00. A 
linha mesmo comeca no quinto byte e 
vai ate' o penultimo. EntSo pode apare- 
cer uma duvida: se os dois primeiros 
apontam para o inicio da pr6xima, 
como 6 que fica a ultima linha do pro- 
grama, que na"o tern para quern apon- 
tar? Na verdade, este e o truque usado 
pelo sistema para saber quando o pro- 
grama acabou. A ultima aponta para 
uma pretensa linha de apenas dois by- 
tes, ambos 00, isto e, uma falsa linha 
cujo ponteiro e invalido, )i que na"o hi 
linha apontada armazenada antes de 
$800. 

Na interpretacSo de uma instrucSb 
qualquer, o sistema deve estar sempre 
inicialmente oUiando para um byte 00 
ou $3A (cardter ":"), caso contrario 
haverd erro GRAFIA. As posicOes $B8 
e $B9 contem o endereco para o qual 
o interpretador esta olhando a cada ins- 
tan te. Elas constituem uma das mais im- 
portantes variaveis do sistema, a qual se- 
ra chamada aqui de PTRLIN. 

O sistema pega os caracteres da li- 
nha sob interpretacSo atravds de duas 
rotinas tambem muito importantes, que 
sao PROXCAR e PEGCAR. Estas 
duas rotinas colocam o cardter apontado 
por PTRLIN no acumulador e voltam 
com o Carry resetado se este cardter for 
um digito ou com flag Zero setado, 
caso seja um byte 00 ou um ":". A roti- 
na PROXCAR primeiro incrementa 
PTRLIN e depois pega o carater. Ja o 
PEGCAR e, na verdade, uma segunda 
entrada de PROXCAR, logo ap6s o in- 
cremento de PTRLIN, e apenas pOe 
no acumulador o cardter enderecado 
por ele. Ambas as rotinas ignoram es- 
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sistemas de banco de dados 

CURSOS 
DISPONIUEIS 
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• DOS - PC "Sistema Opcrocional" 

• UNIX "Sistema Operational" 
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Faca ja o seu pedido 
Preco de Lancamento: 

Cr$ 49.000,00 

ceiwdiiv 

Rua Jose Maria Lisboa, 580 

Tel.: 287-4716 - CEP 01423 
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pacos em branco, saltando por cima 
deles ate' ericfjntrarem o cariter v£- 
lido. Estas fotinas esta"o originalmente 
gravadas na ROM, mas sa~o transferi- 
das para lni'cio da RAM durante a 
inicializaca*d do BASIC. A rotina 
PROXCAR come?a em S00B1 e a 
PEGCAR em S00B7. 

Como j4 foi visto antes, as vari£- 
veis simples comecam logo ap6s os dois 
bytes 00 do fim do programa, e sa"o se- 
guidas pelas variaveis indexadas e pelo 
espaco string. Os enderecos de initio 
do programa, das variaveis simples, 
das indexadas e do espaco string sa"o 
guardados has variaveis dos sistemas 
INIPROG, INlVARS, INIMATR e 
INISTR. 

As vari4veis sifflples ocupam sempre 
sete bytes, sendo dois para o nome e 
cinco para o valor. Uma variavel tern os 
bits 7 dos dois bytes do nome setados 
e usa apenas dois dos cinco bytes res- 
tantes para o valbr. Uma variavel real 
tern os bits 7 do nome zerados e ocupa 
todos os cinco bytes-, sendo o primeiro o 
expoente e os quatro seguintes a mantis- 
sa (mais significative) primeiro). As varia- 
veis string tern o bit 7 do primeiro by- 
te do nome zerado e o do segundo se- 
tado, e usam apenas tres bytes para o 




Em MS n? 41, fta materia A L6- 
gica na Programacao, quinto 
paragrafo, setima liriha, apare- 
ceu, indevidamftite a palavra in- 
diferenca, o correto 6: ... As 
principals operacdes sao uniao, 
intersepla, ^if^rerica... 
Na figura 3, fofa*m publicadas 
as linhas A 3 OR B 7 e CS = 
"FALSO" ANtf NOT B 3. Nas 
duas linhas, faltaram os sinais > 
e < . Ocettoe:A>3 0RB>7 
e CS = 'IFALSO" AND NOT 
B<3. 

Na figura 8, as dperacoes uniao, 
intersecao, diferenca, produto 
cartesiano, projecao, restricao 
e juncao foram irripressas sem 
setas. Assirn, a forma correta se- 
ria, por exemplo, T-»-AUB,e 
nao T AUB. Faltou, ainda, na 
opera^ao intersecao, o sinal 
fl .A forma certa e T «- A fl B. 
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valor, que na verdade 6 o descritor de 
string mencionado anteriormente. 

As varidveis indexadas obedecem as 
mesmas regras para nome, pore"m, 
ocupam dois, tres ou cinco bytes por 
elemento, dependendo do tipo. Alem 
destes, cada variavel ocupa mais 5+2* N 
bytes (onde N 6 o niimero de dimen- 
sOes), sendo os dois primeiros usados pa- 
ra o nome, os dois seguintes para o to- 
tal de bytes gastos e um byte para o 
niimero total de dimensOes e mais dois 
para cada dimensao, que indicam qual o 
valor maximo de cada uma (primei- 
ro a dimensao, que aparece por ultimo 
no in dice). 



ACUMULADORES 



conceito de acumulador 6 muito 
importante para entender a resolucflb 
de expressoes. acumulador e uma va- 
riavel do sistema que sempre conte'm 
um dos operandos e na qual tambem 
ficara' o resultado da operaeffo. Hi 
tres acumuladores no BASIC, um para 
cada tipo de valor: o ACSINT ocupa as 
posi95es SAO e SA1, sendo usado para 
valores inteiros;o ACSTR1 fica tambem 
em $ A0 e $A1 e retem o PTRDESCR 
(que 6 o endere90 em que esta" o 
DESCR) da string-resposta (nas funcCes 
e expressoes string, o DESCR do resulta- 
do fica nas posi?5es S9D, $9E e S9F) 
e o ACSPF1, que recebe os valores re- 
ais (em ponto flutuante), ocupa as posi- 
96es $9E ate SA1 com a mantissa 
(mais significativo S9E) e S9D com o 
expoente. termo ACSOFT1 servira" 
de nome generico para os tres acumula- 
dores. tipo do valor a ser armazenado 
la e o que dira qual dos tres sera usado. 
A variavel do sistema TIPOAC, que 
ocupa as posicoes $ 1 1 e $ 1 2, informa o 
tipo do valor contido no ACSOFT1. 
A posisSo $11 indica valor numerico 
se for 00 e string se for 255, enquanto o 
desempate entre valores numericos in- 
teiro e em ponto flutuante e feito pe- 
la posicSo 512 - 00 para ponto flutu- 
ante e 128 para inteiro. 

Valores diferentes em TIPOAC nao 
estSo definidos e confundirSo o compu- 
tador, provocando muitos erros tipo 
DIFERE. Algumas fu^Oes internas 
(+,-,* , /, * ,AND e OR) requerem dois 
operandos. Nestes casos s5o usadas varia- 
veis auxiliares para conter o primeiro 
operando, ficando o segundo no 
ACSOFT1. Por analogia, estas variaveis 
auxiliares serSo chamadas ACSOFT2 
(nome generico), ACSTR2 ($A8/$A9) 
e ACSPF2 ($A5/$A9). Nao existe 
ACSINT2 porque toda a matem^tica 
do Apple e' em ponto flutuante, sendo 
usado o ACSINT apenas nas conversOes 



inteiro/ponto flutuante e ponto flutu- 
ante/inteiro. 



BIBLIOGRAFIA 



No levantamento das rotinas da 
ROM foram usados apenas tres li- 
vros: o "6502 Software Design", de Leo 
J. Scanlon (Serie Blacksburg/Howard 
Sams & Co, Inc.), o "Guia de Usua- 
rios do Apple II", de Lon Poole, 
Martin McNiff, Steven Cook (Osborne/ 
McGraw Hill) e o "Apple II Circuit 
Description", de Winston D. Gayler 
(Howard Sams & Co, Inc.). 

Os dois ultimos sao bastante reco- 
mendaveis. O primeiro 6 como o manual 
do Apple deveria ser, e o segundo da 
explica90es detalhadas de como o cir- 
cuito do Apple funciona, alem de es- 
quemas, diagramas de tempo, etc. O 
livro traz ainda uma tabela de rotinas 
mais ou menos como a des- 
te artigo, pore"m ela fica restrita & ROM 
do sistema operacional, alem de ser me- 
nos completa; por outro la do, ela diz 
quais registradores sSo alterados em 
cada rotina, o que £s vezes e muito ilt.il. 

O motivo da bibliografia ser ta"o pe- 
quena e que este artigo na"o e nenhu- 
ma traduqao de livro americano: ele e' 
resultado de mais de um ano de xere- 
tices em cima de listaeens disassem- 
bladas do Unitron e do TKS 80 Dismac 
D8000. Paradoxalmente, trabalhar nas 
duas mdquinas ao mesmo tempo facilita 
as coisas; isto ocorre porque, como os 
BASIC dos dois sSo versOes reduzidas 
do MBASIC da Microsoft, pode-se extra- 
ir a estrutura basica do sistema atraves 
da comparacSo das rotinas, semelhantes 
nos dois computadores. 

Os nomes de rotinas ou variaveis 
sSo quase todos cria95es minhas, nao 
tendo nada de oficiais. O artigo esta 
longe de dar uma cobertura completa 
ao assunto, o que exigiria um livro. Mas 
fornece uma boa base para que os lei- 
tores pesquisem mais a fundo as rotinas 
de seu interesse. Mais para a frente pre- 
tendo publicar o mapa da ROM do TRS 
80 e artigos especificos sobre o interpre- 
tador, suas rotinas matemdticas e de ma- 
nipula9a"o de strings, assuntos bastante 
complexos. ■ 
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Aldo Felicio Naletto Junior tern 26 anos, 4 
engenheiro eletrdnico pel a Escola de Enge- 
nharia de SSo Carlos, da USP, trabalha no Pro- 
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Na compra de 

Cr$ 1.000.000 

voce ganha um 

aparelho que duplica a 

utilizacao do diskete 



Mesas para terminals 
de vfdeo 

c *419.850 



• Fabricagao propria 

• Cores discretas 

• Desenho moderno 

• 5 modelos 



COMPUTADORES 

• Suprimentos 

• Perifericos 

• Impressoras 

• Drives 

• Placas de Expansao Interfaces 

• Cabos 



Conosco voce encontra tambem, tudo o mais que 

precisa em video-game, som, telefonia, 

das melhores marcas e procedencias, e mais: 

VIDEOS 

• Transcodificagao todos os sistemas 

• Fitas: VHS - BETA-U-MATIC e para limpeza de cabega 

• Baterias p/2 e 8 hs. 

• lluminadores 

• Cabos de extensao p/ cameras 

• Bolsas p/ cameras e videos 

• Telao 



• Acess6rios nacionais e importados 

• Suporte p/ TV teto ou parede 



BTC" 2001 



Curso de ingles em video-cassete 

Servigo expresso remetemos para todo Brasil 



ALTA TECNOLOGIA 




BRASILTRADE CENTER 



Av. Epit&cio Pessoa, 280 (Esq. de Visconde de Piraj£), Ipanema - Rio de Janeiro - CEP 22471 - 259-1299 

Rua da Assembleia, 10 - Loja 112 (Ed. Candido Mendes) Rio de Janeiro - (021) 222-5343 

Av. das Americas, 4790 - Sala 615 (Centro Profissional Barra Shopping) Rio de Janeiro - 325-0481 

TELEX (021) 30212 BTCP 
Fabrica: Rua Silva Vale, 416 - Cavalcanti - RJ - Tel.: (021) 592-3047 



Nesta segunda parte do artigo a orientacao para utilizacao 
dos comandos complementares dos arquivos do NEWDOS/80 



Arquivos em disco 
do NEWDOS/80 



Joio Henrique Vol pint Mattos. 



Complementando artigo cuja primeira parte foi publi- 
cada era MS 39 , vamos agora praticar os novos co- 
mandos utilizados com os arquivos do NEWDOS/80. 
Antes de continuar, e aconselhivel uma releitura da 
parte initial, pois sao muitos os terraos texnicos utilizados pelo 
NEWDOS/80. 

£ necessario muito cuidado na digitacSb das instrucSes em 
todos os exemplos a seguir. A execucfo de uma instrucffo cr- 
rada podera prejudicar toda uma sequencia de exemplos. Se 
isso ocorrer, re tome ao programs utilizado para criar o arquivo 
e execute todos os exemplos, novamente. 

ARQUIVOS MU 

Este tipo de arquivo foi inicialmente concebido para subs- 
tituir os arquivos seqiienciais do TRSDOS (PRINT/INPUT no 
NEWDOS/80), oferecendo algumas vantagens: grava os valores 
numericos na sua representacao binana (e nflo em ASCII), per- 
mite a alteracffo de registros (obedecendo certas restricoes) e 
possibilita o accsso randomico atravds de indices. Uma carac- 
ten'stica deste arquivo e* o fato dele mar car o inicio de cada re- 
gistro e de cada campo com determinados bytes identificadores : 

70H — Indie a o inicio de um registro (SOR-Start Of Record). 
To do o inicio de um registro 6 marcado com o byte 
70H, mas nem todo o byte 70H indica o inicio de um 
registro, pois ele pode aparecer como parte de valores 
numdricos ou em strings (letra p minuscula). 

72H - Indica que os dois bytes a seguir sffo um valor inteiro, 

73H - Indica que os quatro bytes a seguir sao um valor real 
de precisao simples. 

74H - Indica que os oito bytes a seguir sfo um numero real 
de precisffo dupla. 

As strings sSo identiftcadas de dois modos: se ela tern menos 
de 128 caracteres, o byte indicador do campo sera" o re suit ado 
da soma de 80H mais o numero de caracteres da string. Se ela 
tem 128 ou mais caracteres, a marcacao sera* feita por dois by- 
tes: um 71 H e outro indicando o comprimento da string. 



Para familiarizaca"o com este tipo de arquivo, nada mclhor 
do que trabalhar um pouco com ele. De inicio, um pequeno 
programa com a listagem 1 , a seguir. £ importante nfloesque- 
cer o ponto c virgula no fim dos 1GEL (Item Group Expres- 
sion List) nas linhas 3, 4, 5 e 7. 



1 CLif* IOC* 

2 Or^fH -0-. 3 . •V.XWn.Q/HJ'- "MJ- 

3 Pura|...-R[0 K J«t]«0-t 
a PUFai- . .f,Tfr|>a»l ]■...-.-. I 

5 PuKl.. .-NtltWH-. -CMKl FMlO'i 

♦ Irt - -JO- I W • Tl I VI - 7?.400I 

7 WifI«|w.V*.«.V'.V»i 

■ CUM 



V* • 33,00000000061 



Execute o programa com RUN, criando o arquivo Exem- 
plo/MU. Volte ao sistema operational com CMD'^S" e chame o 
SUPERZ AP. Com a opeffo do DFS (Display File Sector) anali- 
se o setor do arquivo Exemplo/MU (Figura 1). Para facili- 
tar a identificacSo dos registros e campos foi feito um cfrculo 
em torno dos bytes SOR dos registros e sublinhados os marca- 
dores dos campos. 

No inicio do setor vemos um byte 70H (SOR) e logo a se- 
guir um 8EH, indicando que a seguir vem uma string de 14 
bytes (RIO DE JANEIRO), pois a diferenca 8EH-80H = OEH, 
que & 14 em decimal. Apos a string, temos novamente um SOR 
e a sequlncia de bytes 7 1 1 i e 82H(82H =1 30 decimal), indican- 
do que a seguir temos uma string de 1 30 caracteres (veja linha 
4 da listagem 1). Apos os 130 asteriscos, la" na posicJo 95H, 
temos um novo SOR, apontando o infcio do registro em que 
foram gravadas as strings NITEROI e CABO FRIO. Identifi- 
que os bytes marcadores destes campos. Finalmente, no ulti- 
mo registro (posica"o ASH, na figura 1 ), temos os quatro cam- 
pos gravados na linha 7 do programa. A string 30 £ facilmente 
identificivel, mas os valores numdricos 31, 32.0001 e 
33.00000000001 nfo o sffo, pois eles estSo arm azen ados em 
sua forma binana: 

• inteiro 31 = IF 00, na representacao biniria; 

• real 32.0001 = I A 00 00 B6. na representacao binaria; 

• duplo 33.00000000001 = FB 2B 00 00 00 00 04 86, na 
representacao biniria. 

Vol tan do ao BASIC, escreva agora as linhas da listagem 2, 
abaixo. 



1 POINT "Taata 

? PRINT "Poaic 

- POINT "Pmic 

4 PRINT -Po» 

*t STOP 



ao do ultin 



i"i LOCI lit 
i"i LOC(l>v. 
i-i LOC(l) ! 
i"i L0C(l>« 



Na"o de RUN no programa, ao inve's disso digite: 



CLEAR l«0O • OPEN "R". I . -EKEMTl 0/nU'. "MU- 



O sistema responded: 



Tatta da «l* <1» jrauivo 
Poticao do EOF 
Potlcio do proximo raaitt 
Poticao do ultimo ruiilt 
BAD FILE MODE in 4 



Observe que a funcSo LOC(l) # , que indica a posicao do 
ultimo registro acessado (REMRA - Remembered Record 
Address) resultou em erro. Isso ocorre porque nenhum registro 
foi ainda lido ou gravado e o sistema invalida a funcao. Fa?a- 
mos entSo a leitura do primeiro registro. Para facilitar a digi- 
tacSo, substitui'mos o PRINT pela interrogacao "?" : 



■SET I...ACI 



A resposta sera: 



RIO DE JANEIRO 
Taata 0m *im da «r< 
Poticao do EOF 
Poaicao do proximo 

c O«LC*0 dO ultimo « 



'tfllt'O 
•»l »t'0 



icntaao t o 



Note que os valores relacionados ao EOF (End of File) na"o 
se alteraram, pois estamos fazendo uma leitura de dados. Ape- 
nas as posicGes do proximo registro e do ultimo acessado fo- 
ram alteradas. (Na verdade, os ponteiros que indicam estes re- 
gistros.) Nosso arquivo agora esta posicionado no inicio da 
string de 130 asteriscos. Vamos ler apenas os 10 primeiros: 



E teremos: 



'•»►• Or #ll« da tnuivn 
Poticao rtn EOF 

Pmicm ao pro<nw ntiit 

Poticao do ultimo 



t ,. 

: |49 



Observe que foi possfvel a leitura parcial de um campo. So- 
mente o NEWDOS/80 oferece esta flexibilidade. Vejamos ago- 
ra o proximo registro : 



7 M,M i GOTO I 



sistema responde: 



CAM FRIP 



Foiir.o do EOF : 1B9 

Po*lc«o do pro ik rmitro : 16t 

Fn«ir*o do ill Mao r»»utro ictsodc I 149 

Vamos ler este registro novamente, utilizando o FP (File 
Position), que posiciona o arquivo no inicio do ultimo registro 
acessado: 



86T i . •. . ra.pt t 



? ct.ot i no to I 



Teremos entao: 

NITEROI CAW1 FRIP 

Tp.*t» d* •!» da araulvo 1 O 

Potleao do EOF j 190 

F'otirao do oro«i«o rm.tro 1 168 

Poaicao do ultimo 'Miilro acaaaado : 149 

£ importante observar que as posi95es do pr6ximo registro 
e do ultimo registro acessado na"o se alteraram. Fac,amos agora 
a leitura do segundo e quarto campos do proximo registro. Ob- 
serve os nulos entre as virgulas, indicando que o campo cor- 
respondente devera" ser pulado: 

GET I . . . .NV.. .N4I I ? NX.N* I GOTO 1 

sistema respondera": 



•1 33.00000000001 

T»»t» d* 'im da araulvo 
Poticao do EOF 
Poatcao do oroxliao raalttro 
Poaicao do ultimo raaiatro acaai 



t-t 
1 IB9 
I 189 
• 168 



DRV 00 

O 10 

OH 20 

SO 

DRS 40 

63 SO 

41H 60 

70 

BO 

90 

A0 

BO 

FRS CO 

O DO 

OH EO 

F0 



2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
4142 
1A00 
0000 
OO00 
OOOO 
0000 



S249 
822A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
4F20 
00B6 
0000 
OOOO 
OOOO 
0000 



4F20 4445 
2A2A 2A2A 
2A2A 2A2A 
2A2A 2A2A 
2A2A 2A2A 
2A2A 2A2A 



2A2A 
2A2A 
2A2A 
874E 

494F 



2A2A 
2A2A 

4632 
74FB 2B00 
OOOO OOOO 
OOOO 0000 
OOOO OOOO 
OOOO OOOO 



204A 
2A2A 
2A2A 
2A2A 
2A2A 
2A26 
2A2A 
2A2A 
2A2A 

0000 
OOOO 
OOOO 
OOOO 
OOOO 



» a • • 

I ••«'•••• . * 
»+»**»»*. I 



414E 4549 324F o. RIO. DE. JANC IRO 

2A2A 2A2A 2A2A dq,< " 

2A2A 2A2A 2A2A • • I 

2A2A 2A2A 2A2A ♦ 

2A2A 2A2A 2A2A •«•»■..»...•.■•■. 

2A2A 2A2A 2A2A 

2A2A 2A2A 2A2A 

2A2A 2A2A 2A2A 

2A2A 2A2A 2A2A 

4532 4F49 §94 7 

3330 7,2 IF 0073. AB0.FRI0o.30r . 

0004 B600 0000 t.* 

0000 0000 0000 

0000 OOOO 0000 

0000 0000 0000 

0000 0000 0000 



>. NITEROI. C 



Figura 1 

£ importante observar que acabamos de ler o ultimo re- 
gistro do arquivo, pois a posi?a"o do EOF e igual a posi?a"o do 
proximo registro (189). Outro modo de verificar isso e' atraves 
do resultado do teste de fim de arquivo, que esta" indicando 
— 1 (verdadeiro). Vamos entao retornar ao inicio deste registro 
para ler os seus outros dois campos: 



SET ■ •.» 



A resposta sera": 



7..-I 32.OO01 

Tatta da *\m da araulvo 
Poaicao do EOF 
Poticao do oroximo raaiatr 
Poaicao do ultimo raaiatrc 



i 189 
i 189 

Laaaado ■ 16R 



que aconteceria se tentassemos ler mais um registro? 
Vamos ver: 



GET I... At 



FND OF FILE ENCOUNTERED 
INPUT PAST END 



Aconteceu o que era de se esperar. 

Vejamos agora outra te'enica de posicionamento de arquivo. 
Pela anilise do arquivo com o SUPERZAP vimos que o tercei- 
ro registro comec^va na posicao 95H (149 em decimal). Digi- 
te entao : 



GET 1. • 149. .pt.Dtl 



sistema respondera": 



NITEROI CABO FRIO 

Taata da iim da araulvo 
Poaicao do EOF 
Poticao do oronmo raaittro 
Poaicao do ultimo raalttro a 



» 189 

■ 16B 

tttado i 149 



A utilizacSo de valores determinados de RBA (Relative By- 
te Address), seja um numero, o conteudo de uma variavel ou o 
resultado de uma expressSb, fara" com que este valor seja trans- 
ferido para o ponteiro do pr6ximo registro. Isso nos permite 
acessar o arquivo de forma randomica, bastando para isso ar- 
mazenar os RBA dos registros num vetor e acessi-los atrave's 
dele. Digite o programinha a seguir, listagem 3, e de um 
RUN 100. NSo apague as linhas 1 a 5 que ji estffo na mem6ria 
do computador, pois continuaremos a utilizi-las. 

100 OPEN -R-. 1 .-EXEnPLO/NU".-MU" 

101 I • 

102 I " I»l i GET I ■ RB(I) • LOC i I i ■ 'oaaa o RBA do ultimo raviatro acaaaado 

103 IF NOT uOCU't THEN 102 "vari«ica ta im chaaou ao In do araulvo 

104 CLOSE 

105 CLS i PRINT "Numaro da raaiatroa no araulvo l"l I 

106 FOR J • 1 TO I l PRINT ~Ra«lttro~> Jl "comae* no RBA": RB(J> I NEXT 

107 END 

Com o RUN 100, o sistema respondera: 

Numaro da reaiatrot no araulvo « 4 
Raalttro 1 comaca no RBA O 
Raalttro 2 comaca no RBA 16 
Raalttro 3 comaca no RBA 149 
Raaiatro 4 comaca no RBA 168 

Em arquivos de verdade nSo se esqueca de dimensionar o 
vetor onde serfo armazenados os RBA. Neste caso na"o foi pre- 
ciso, pois sabiamos que o arquivo tinha menos de 10 registros. 
Na"o 6 necessario dimensionar vetores com menos de 10 ele- 
mentos. 

Vejamos agora alguma coisa de gravagao em arquivos MU. 
Como voce ja deve ter im agin ado. a alteraga"o dos registros 
existentes ficard condicionada a que o comprimento do novo 
registro (incluindo os bytes marcadores), seja igual ou menor 



» 
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MICRO SISTEM AS, mwco/85 



MICRO SISTEMAS. marco/85 
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ARQUIVOS EM DISCO DO NEWDOS/80 



ao registro ja existente. Vamos entSo abrir o arquivo e alterar 
o primeiro registro: 



OPEN "R-.l.-EXEHW.O.'Hir.-HU" 
FUT 1 . . . "NOVO RIO"' ■ ROTO I 



sistema responded: 



PnfttCMO do F.OF 

Poateao da °'° i«o r#«i»tr 

f'"»lc«o rto (lltlM ""I"" 



Perceba que aconteceu o mesmo quando fizemos um GET 
no primeiro registro. Vamos agora dobrar o valor armazenado 
no terceiro campo do quarto registro (o valor real de precisa"o 
simples 32.0001), para exemplificar a leitura/gravacao parcial 
de registros. E tambe'm aproveitar o vetor RB, que nao deve 
ter sido apagado da memoria. 



GET l.'RHHi. 
GET I....V 
PUT I » • 

GOTO I 



'oosicion* o wouivo nn inlcio rto t*TC«trr 

c»«k>o Oo muno r»»intrn. 
'I* « .ariival V< * MTttf rta ooll" 

do »ranl .o. 

•n>i o doBro d* v » c*rt.ir rto ponfo onitv 

lol r»»lir<.rt* * i|fi">* lr«n»'irpfr 1.1 <!• 

d«do«t. 



Eis a resposta : 

T«»t» H» »|in dp jrnuwn 

. ,«o dc FOT 
Poiioo do proximo r»»j«tro 
rrmicoo di Ultiao r»»niro «cp»«*do : 

Novamente nos encontramos no final do arquivo. Vamos 
estende-lo. Digite: 



A resposta: 



PUI |. IX.. "ULTIMO s-rr.l?Tr.T-r 






■ -1 



'■o.i-'o -to r ■"■ ' 206 

■>: do DTOMiao rnntm > 206 

Po«ic*ci rto uttiam r«»t»tro *c*4««do « 189 

Sera que nosso arquivo foi rejamente estendido? Na realida- 
de ainda nao. pois a string Ultimo Registro ainda esta no 
buffer do arquivo, na memoria do computador, e so sera" gra- 
vada quando dermos o prdximo PUT ou GET ou fecharmos 
o arquivo. Para forcar a gravacSb deste registro podemos uti- 
lizar o comando PUT 1 ,& mas o diretorio ainda estara" desa- 
tualizado. Para forcarmos a gravaca"o do registro e a atualiza- 
<jao do diretorio, antes que alguma queda de luz o prejudique, 
basta darmos um PUT 1, && e ele estara" entao atualizado. 

Vamos agora ao segundo registro (a string de 130 asteris- 
cos), alterando-o com alguns campos menores: 



'■{■- l .STRING* (40. "C"> I 



PUT l.'RPIT . . STRING* MO. "A- > .STRINC 

Resposta do sistema: 

T»«t» el« «!<■ d# J'oglvo » O 

..o rto EOF ' 20* 

POmiCAO do proximo rwntre I 149 

Po»ic»o do ultimo rMiitro «c»«n«do I 16 

E se tentassemos colocar mais uma outra string de 40 ca- 
racteres neste registro? Vamos tentar, mas antes, atualizemos 
o arquivo: 



piit i.u *•.■.•> Ira i 

fu t i ... .STRING* l«f. 



KFCORD OVERFLOW 



no disauptp 



£... estourou o registro. Mas sera" que pelo menos uma par- 
te da string foi gravada? Feche o arquivo (CLOSE), saia do 
BASIC (CMD"S") e volte a examinar o arquivo com a opcao 
DFS do SUPERZAP (figura 2). Observe que alem dos bytes 
SOR nas posicOes 00H, 10H, 95H e A8H, que ja existiam an- 
teriormente, temos agora um outro SOR na posicao BDH, cor- 
respondente ao registro que foi adicionado ao arquivo. Veja 
agora o primeiro registro. byte marcador (88H) indica uma 
string com 8 bytes de comprimento (88H-80H B 08H). Per- 
correndo 8 bytes, a partir do inicio da string NOVO RIO 
encontramos uma sequencia de bytes 00. Estes bytes sao 
utilizados como enchimento pelo sistema, ja que NOVO 
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RIO tern um comprimento menor que RIO DE JANEIRO,' 
anteriormente gravada. 

No registro seguinte vemos as strings de 40 A's, B's e C's e 
logo ap6s uma nova sequencia de 00, indicando que a string 
de 40 letras D que quen'amos gravar na"o foi transferida para o 
arquivo nem ao menos parcialmente. No NEWDOS/80 um 
erro durante a execuca"o de PUT/GET faz com que os dados 
do registro na"o sejam transferidos e que a posica~o atual do ar- 
quivo nao se altere. 

No pr6ximo registro temos a string 30, o numero inteiro 
31 (IF 00 na representac^o binaria), o real 64.0002 (1A 00 
00 B7) e a seguir zeros. O valor 33.00000000001 (precisSo 
dupla) simplesmente foi apagado do arquivo. Isso mostra o 
cuidado que devemos ter na altera^o parcial de registros, pois 
tudo o que vier apos o ultimo campo gravado sera" perdido. 

ARQUIVOS TIPOMF 

Na primeira parte deste arquivo voce conheceu as caracte- 
n'sticas dos arquivos MF. Todos os seus campos sao marcados 
do mesmo modo que nos arquivos MU. E todos os registros 
tern o mesmo comprimento, definido na abertura dos arquivos. 

Assim como nos arquivos MU, os registros MF podem ser 
alterados, nSo sendo obrigatdrio manter o mesmo numero, 
tipo ou comprimento dos campos do registro original. A unica 
orienta9ao a obedecer e" o comprimento maximo do registro. 

Utilizando a mesma tecnica dos arquivos MU, vamos exe- 
cutar algumas instructs com arquivos MF. Comecemos di- 
gitando o seguinte programa da listagem 4: 

> clear id 

r OPEN "0-. |.-E^EHPLO/HF- -MF-.-n >r.r.cilic« rulttro rtp ha !>»»•« 
7. PUT 1. ."CAMPOI-.-rAWPO ?"."CAHPO ND.3'1 
a nn i . . STB ::r,*i?°. ■ ••-• •- 'miw «ln»> »n«w»l 
'. ;■ • IOOOO.OOOOOI i ! '. • IOO.OOI ' !"••. » to 
- j.. . IP.!'., r.- 

» cxo?.r 

Execute o programa, criando desta forma o arquivo Exem- 
plo/MF. Saia do BASIC e chame o SUPERZAP, analisando o 
setor do arquivo (figura 3). Imediatamente sentimos a au- 
sencia dos bytes 70H (SOR) no inicio dos registros, ja que ar- 
quivos MF nao utilizam o byte SOR. pois o comprimento dos 
registros e fixo e conhecido pelo sistema operacional. E me- 
diante uma simples operacSo aritme'tica do tipo: (numero do 
registro - 1) :; comprimento dos registros; o proprio DOS de- 
termina o RBA de qualquer um, do mesmo modo que nosar- 



DRV OO 

O 10 

OH 20 

30 

DRS 40 

25 50 

19H 60 

70 

BO 

90 

AO 

BO 

FRS CO 

DO 

OH EO 

FO 



PUBS 4EAF 

p?Jft§ 4141 

4141 4141 

4141 4141 
4242 4242 
4242 4242 
4242 42flB 
4343 4347. 
4343 4343 
OOOO 0000 

4142 4F20 
1AOO 0087 
4C54 494D 
0000 OOOO 
0000 OOOO 
OOOO 0000 



564F 2052 
4141 4141 
4141 4141 
4141 4141 
4242 4242 
4242 4242 
4343 4343 
4343 4343 
4343 4343 

'"© " •'•' 
4652 494F 
OOOO OOOO 
4F20 5245 
OOOO OOOO 
OOOO OOOO 
OOOO OOOO 



494F 
4141 
4141 
4141 
4242 
4242 
4343 
4343 
4343 

OOOO 
4749 
OOOO 
OOOO 
0) I0Q 



OOOO 
4141 
4141 
AB42 
4242 
4242 
4343 
4343 
4 343 
4552 
3330 
OOOO 
5354 
OOOO 
OOOO 
OOOO 



OOOO 

4141 
4141 
4242 
4242 

4242 
4343 
4343 

3 

4F49 

524F 
OOOO 
OOOO 
OOOO 



OOOO 
4141 
4141 
4242 
4242 
4242 
4343 
4343 
OOOO 
3943 
0073 
9F55 
OOOO 
OOOO 
OOOO 
OOOO 



o. NOVO. RIO 

o . AAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAA 
AAAAAAAAAA. BBBBB 
BBBBBBBBBBBBBBBB 
BBBBBBBBPBBBBBBB 
BBB.CCCCCCCCCCCC 

cccccccccccccccc 

CCCCCCCCCCCC 

p.NITEROI.C 

ABO.FR!Oo.30r..«, 
p.U 

LT IrtO. REGISTRO. . 



Figura 2 



DRV 00 

10 

OH 20 

30 

DRS 40 

55 50 

37H 60 

70 

BO 

90 

AO 

BO 

FRS CO 

DO 

OH EO 

FO 



§643 
4341 
2A2A 
2A2A 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
0000 
OOOO 



414D 
4DSO 
2A2A 
2A2A 
401C 
OOOO 
OOOO 
OOOO 
0000 
OOOO 
0000 
0000 
0000 
OOOO 
OOOO 
0000 



504F 
4F20 
2A2A 
2A2A 
8E73 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
0000 
0000 
OOOO 
0000 
OOOO 



31QJ 4341 
4E4F 2E33 
2A2A 2A2A 
2A2A 2A2A 
B200 4B87 
OOOO OOOO 
OOOO OOOO 
OOOO OOOO 
OOOO OOOO 
OOOO OOOO 
OOOO 0000 
OOOO OOOO 
0000 OOOO 
OOOO OOOO 
0000 OOOO 
OOOO OOOO 



4D50 4F20 32gfl . CAMPO 1 . CAMPO . 2 . 

OOOO OOOO 9D2A CAMPO. NO. 3 • 

2A2A 2A2A 2A2A 

2A2A 74DE lE"ir " .•••>t..C 

720A OOOO OOOO . .8..S. .H.r 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 

OOOO OOOO OOOO 



Nunca 
compreuma 

coisa que voce 
nao vai usar. 



a 

y 

CO 

< 

o 
o 









Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usar: ja vem com manual de instrucpes, 
que ensina,em portugues claro, 
a linguagem Basic. 

A partir dai, voce pode preparar 
seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado^ara cadastrar clientes, controlar 
estoques, manter em ordem o oroamento 
familiar, fiscalizar a conta bancaria, estudar 
matematica, estatfstica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar. 
E alem disso tudo, o TK 85 tern 
tambem o precp mais acessfvel do mercado. 
Peca uma demonstracao. 



TK 85,o micro que voce pode usar. 



Figura 3 



» 

m 



MICRO SISTEM AS, marco/85 






computadores pessoais 



ARQUIVOS EM DISCO DO NEWDOS/80 



quivos Field Item (FI), com a vantagem de aceitar registros 
muito maiores, de ate 4095 bytes de comprimento. 

No ini'cio do setor encontramos os tres campos do primeiro 
registro (CAMPO 1 , CAMPO 2 e CAMPO 3) precedidos pelos 
bytes marcadores (86H, 87H e 8AH, respectivamente). Logo a 
seguir, temos quatro bytes 00, utilizados para enchimento do 
registro. Depois temos uma string de 29 asteriscos, que e o ta- 
manho maximo permitido para gravac^o de strings neste ar- 
quivo (lembre-se que o byte marcador esta" ocupando 1 byte 
do registro). Finalmente encontramos os tres valores numeri- 
cos gravados na linha 6 do programa. Nao e' facil identificd-los, 
ja que estao na sua representacao binana. 

Retorne ao BASIC e digite as seguintes linhas do programa, 
(listagem 5), ou entao altere a listagem 2. Na"o de RUN ap6s a 
digitac^o: 



1 PRINT THU da * 

2 print -Poaicao de 

3 PRINT "Poaicao de 

4 PRINT "Ultimo r»* 
3 PRINT "Poaicao dc 
6 STOP 



n de arouivo :"■ LOC < 1 1 « 

EOF «"» L0CCHX 

■ roxtao rwntro «"l LOC ( 1 1 ' 

itro aeaaaado I "I LOCII) 

ultimo rmitro khu4o I "I LOCII )■ 



Agora digite: 



OPEN -R". 1. "E:<FMPL0/MF"."MF".30 ' OOTO I 



sistema devera" responder: 



Taata da «im da arouivo 
Poaicao do EOP ■ 

Poaicao do oroxlmo rtllttro > 

Ultimo raaiatro aeaaaado ■ 

Poiicio do ultimo rtfutro »c«Mdo ■ 
BAD FILE MODE In S 



Os resultados sa"o analogos aos do arquivo MU. Como curio- 
sidade podemos notar que enquanto a funcSo LOC ( ) funcio- 
nou perfeitamente, devolvendo o ultimo registro acessado, a 
funcao LOC( ) # , que retornaria o RBA deste registro, 
resulta em erro, feito qualquer acesso ao arquivo. Vamos ler 
entao os dois ultimos campos do primeiro registro do arquivo: 



GET 1....AS.BSI 



Teremos como resposta: 



CAMPO S CAMPO NO.; 

*a*ta da <im da arouivo 
Poaicao do EOF 

■"mi c»o do prmlm r»«i«ir 

Ultimo mlltra aeaaaado 
Po»ic»o do ultimo rmuirt 



Devido ao campo nulo entre a terceira e a quarta virgulas, 
indicando que ele devera ser pulado, somente o segundo e o 
terceiro campos foram lidos. Vamos retornar ao ini'cio do re- 
gistro e ler os dois primeiros: 



GET l.a..A».P«- 



Teremos entSo: 



CAMPO I 
Taata da 
P«ic»o di 
Poaicao di 



campo r 

i« da «rouivo 
EOF 

imo raaiatr 



Ultimo 'MUtm aeaaaado 
Poalcan do ultimo ra«i atrt 



»C»»MClO I » 



Do mesmo modo que nos arquivos MU, nos podemos ainda 
nos MF continuar a ler o registro do ponto onde foi interrom- 
pido: 



.C»: l 7 C» l GOTO I 



sistema respondera: 



CAMPO NO. 3 

'•He da «im da arouivo 

Poaicao do EOF 

Poaicao do Broxino rt«iitro 

Ultimo raaiatro aeaaaado 

Poaicao do ultimo raaxatro aeaaaadc 



O 
90 



Vejamos agora outros metodos de posicionamento do ar- 
quivo. Como os registros sa"o todos do mesmo tamanho, po- 
demos acessar qualquer um deles atravds do seu prdprio nu- 



r*T i . ?. .Na.N'.NV.i 



Teremos como resposta: 



||-|iW>.O0fx"*ll 100. OOl 

Taata da *lm da arouivo 
Poaicao do EOF 
Poaicao do oro»lmo raaiatro 
Ultimo raaiatro aeaaaado 



Poaicao do ultl> 



raaiatro aeaaaado i 60 



Podenamos ainda acessar o mesmo registro atraves do seu 
RBA. Entretanto, na"o e necessdrio empregar um vetor dos 
RBA como nos arquivos MU, jd que podemos calcular a posi- 
cSO dos registros facilmente: 



I : GET |. ! (NR-l)*30. ."•."•. VXt 



? V» . v ! . W. 



sistema respondera: 



jnOOO.O"OOf-l 100.001 10 

Taata da 'i« da arquivo » 

P©»1 cao Ho EOF I "O 

P«*ir»o do proximo raaiatro I °0 

Ultimo raaiatro aeaaaado > 3 

P-«ie»o do ..It i mo rmaiatro aeaaaado « 60 

Agora vejamos alguma coisa sobre alteracao de registros em 
arquivos MF. Execute a seguinte linha de instrucSes: 



E teremos: 



Poaic« 
Poaira 
Ultimc 



-- I PUT I.|. .A4I 



imo raaiatr 

aeaaaado 
»o raaiatrc 



Certamente o primeiro registro foi alterado, mas o que sera" 
que foi gravado? Apenas um byte 80H, indicando que a seguir 
ha uma string nula, ou seja, nada existe a frente. Como o re- 
gistro tern 30 bytes, ainda sobram 29. Vamos prosseguir a 
gravaeffo neste registro : 



Fin 1 . •. . -AAAAAAAAAA'I ■ OOTO 1 



sistema respondera: 



Taata da <im da a** 
Poaicao do EOF 
Poaicao do proximo 
Ul tlmo rMla.tr 
Poaicao do ult 



raaiatro 
aaaado 
raaiatro aeaaaado 



Entao, 29 menos 11(10 bytes da string mais 1 byte marca- 
dor) = 18. Isto quer dizer que podemos ainda gravar uma string 
de ate 17 caracteres. Vamos la: 



PUT 1 . •. .STRING»<17. -a") I 



sistema devera" responder: 



Taata da ftm da arouivo 

Poaicao do EOF 

Poaicao do proximo raaiatro 

Ultimo raaiatro aeaaaado 

Poslcao do ultimo raaiatro aeaaaadc 



Tudo correu bem. Para finalizar, vamos acrescentar mais 
dois registros ao final do nosso arquivo: 



PUT 1. 
PUT I, 



■%.- "PENULT IMO REOISTRO 
. ."ULTIMO REGISTRO (3>"« 



ISO 
ISO 



A resposta sera: 

Taata da *im da arouivo 

Poaicao do EOF 

Poaicao do oroKlmo raaiatro 

Ultimo raaiatro aeaaaado 

Poaicao do ultimo raaiatro aeaaaado 

Feche o arquivo e analise-o com o SUPERZAP (figura 4). 



DRV 00 

10 

OH 20 

30 

DRS 40 

30 50 

1EH 60 

70 

30 

90 

AO 

BO 

FRS CO 

DO 

OH EO 

FO 



BOSA 
2424 
2A2A 
2A2A 
0000 
0000 
5449 
2900 
5245 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 



4141 4141 4141 4141 4141 9124 2424 . . AAAAAAAAAA. **« 

2424 2424 2424 2424 2424 2424 9D2A •*«»»•»»••»«»«.• 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A MiMIHMtil 

2A2A 2A2A 2A2A 2A2A 2A2A 74DE 1B43 *****»«*»» »»t. .C 

401C 8EZ5 8200 4887 720A 0000 0000 ..»..».. H.r 

0000 0000 0000 0000 9650 454E 554C PENUU 

4D4F 2052 4547 4953 5452 4F20 2834 T I MO. REGISTRO. (4 

OOOO 0000 0000 9J55 4C54 494D 4F20 ) ULTIMO. 

4749 5354 524F 2028 3529 0000 0000 REBISTRO. <5> 

OOOO 0000 0000 OOOO OOOO 0000 0000 

0000 OOOO 0000 OOOO OOOO 0000 0000 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 



Os registros do arquivo comecam nas posicSes OOH, 1EH, 
3CH, 5AH e 78H (0, 30, 60, 90 e 120 em decimal). Na posicao 
OOH o byte 80H indica uma string nula e na posicao 01 H o 
byte 8A indica uma string de 10 bytes de comprimento (as 
10 letras A). Logo ap6s a string temos o byte 91H apontando 
a string de 17 cifrOes. A partir da posicao 1EH temos o byte 
marcador e a string de 29 asteriscos preenchendo completa- 
mente o registro. A partir da posicSo 3CH temos os tres va- 
lores nume'ricos que foram gravados. Observe neste e nos dois 
ultimos registros a utilizaca"o dos bytes 00 para preencher o 
registro ate completar os 30 bytes. 

ARQUIVOS TIPO MI 

As principals caracteristicas que diferenciam os arquivos 
MI dos MU e MF 6 que nSo podem ser alterados e na"o distin- 
guem registro de campo, ja" que na"o existem bytes SOR e nem 
informamos ao sistema o tamanho dos registros. Estas dife- 
rencas restringem bastante a utiliza?a"o dos arquivos MI, que 
servem geralmente como meio bastante compacto de armaze- 
namento tempora'rio de dados. 

Arquivos MI apenas sa"o gravados, lidos ou expandidos, na"o 
podendo ser alterados. acesso a seus registros ou campos, ]i 
que nao ha distincSO, pode ser feito de forma sequencial ou 
randomica. Para treinarmos um pouco a utilizacSb desse tipo 
de arquivo, digite o programa a seguir (listagem 6) ou entSo 
altere a linha 2 da listagem 1 : 

1 CLEAR 1000 

2 OPEN -O-.l.-EXEMPLO/MI-.-MI- 
; PUTai. . ."RIO DE JANEIRO"! 

4 PUTai . . .STRING*! 130. "•"> I 

3 PUTai, . ,-NITER01"."CAB0 FRIO"i 

6 V* • "30" i W • 31 I V! • 32.0001 « V» ■ 33.0O000O0OOO1 

7 put«i. . . v». vx. v .vai 

8 CLOSE 

Execute o programa e analise o setor do arquivo criado 
com o auxilio do SUPERZAP (figura 5). Imediatamente, 
observamos que nao hi bytes SOR nem aquela profusSb de 
bytes de enchimento. A estrutura e controle do arquivo es- 
ta"o sob responsabilidade do programador. Para acessd-lo se- 
quencialmente e preciso saber que tipo de campo esta' sendo 
lido. Na forma randomica e necessdrio conhecer tambe'm os 
RBA dos bytes marcadores dos campos do arquivo. 



DRV 00 

10 

OH 20 

30 

DRS 40 

75 50 

4BH 60 

70 

BO 

90 

AO 

BO 

FRS CO 

DO 

OH EO 

FO 



3E52 
822A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2A2A 
2046 
74FB 
OOOO 
OOOO 
OOOO 
OOOO 



494F 2044 4520 4A41 4E45 4952 4F71 .RIO. DE. JANEIROo 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A .+**•**•**••**•• 

2A2A 2A2A.2A2A 2A2A 2A2A 2A2A 2A2A **************** 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A +*******«*m***m* 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A mm************** 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A ***♦*♦ «**•***.*** 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

2A87 4E49 5445 524F 4989 4341 424F ***.NITEROI.CABO 

5249 4F82 3330 721F 0072 1A00 0086 .FRI0.30r..s 

2B00 OOOO 0004 BZoo OOOO OOOO OOOO t.* 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO OOOO 



Figura 5 

Ainda examinando o arquivo, vemos que, de acordo com o 
programa, n6s gravamos cinco strings, um valor inteiro, um 
real de precisao simples e outro de precisao dupla. Os bytes 
marcadores destes campos esta"o localizados nas posicCes 
OOH, OFH, 93H, 9BH, ASH, A8H, ABH e BOH. Retorne ao 
BASIC e digite novamente as linhas da listagem 2 utilizadas no 
arquivo MU. E depois as instru?5es: 



OPEN "I". I."EXEMPLO/M!"."Ml- 



Resposta do sistema: 



mero : 



Figura 4 



Taata da ' 


m da 


arautvo 


Poaicao do 


EOF 




Poaicao do 


or ox 


mo raalatr 


Poaicao do 


llltl 


ej raaiatro 


DAP PILE MODF-ln 4 



Identico ao ocorrido com o arquivo MU. A diferenca esta 
na posicSo do EOF (185 em vez de 189) devido a ausencia de 
bytes SOR. Como o sistema nao distingue registro de campos 
neste tipo de arquivo, vamos tentar ler de uma so vez varios 
registros: 

GET I . . .A*. ( l")B«.C«.D»- I 9 ■■« > i -• t GOTO 1 

A resposta devera ser: 



PIO OF .'ANEIRD 
Taata da *im da 
Pnairao do TOP 
F'oaicao rto pro* 
Piai cao do ul t i 



CAPO FRin 



IBS 

!■■ 



Observe que a funeffo LOC ( ) # , indicativa da posicao 
do ultimo registro acessado, devolveu o valor 0. Isso porque 
o sistema entendeu todas as variaveis lidas como campos de 
um so registro, no caso, o primeiro do arquivo. Vamos abri-lo 
de outra forma. Digite: 



i-tcr=r i opfn "E-. t ■ 'F-TMPi.rvMi-.-m- 



Teremosa resposta: 



T»»tm da Mm im arouivo 

Poaicao do EOF 

Poaicao do ar-CMIM ra«i»tro 

Poaicao do ultimo raaiatro aeaaaado 

BAD FILE MODE in 4 



arquivo agora esta" aberto para gravacao a partir de seu 
ultimo registro. Vamos estende-lo, gravando alguns valores 
nume'ricos: 



PUT 1 ... 10.20. 301 



sistema responded: 



Taata da <im da arauivo 
Poaicao do EOF 
Poaicao do oroximo ra«i«tro 
Poaicao do ultimo raaiatro a 



i-l 

I 1Q4 
I 194 

1 IR-, 



Veja que o EOF agora est£ 9 bytes mais longe, e o REMRA 
tern o valor da posicao anterior do EOF. Em arquivos MI, ja" 
que registros e campos nao tern distinca"o, o REMRA e sempre 
igual ao REMBA (Remembered Byte Address) e ambos sa"o 
iguais a posicao do arquivo no ini'cio da transferencia de dados 
no PUT ou GET. 

Coloquemos agora o arquivo no modo randomico, aces- 
sando o quarto registro atraves do seu RBA. Vejamos: 



CLOSE 
GET l. 



i OPEN -R-.l. 
■•.M9F-. ..-.»: I 



•E:<EMPLO/MI-."MI' 
} A* I GOTO 1 



Resposta do sistema: 



CABO FRIO 

Taata da 'u da prauiva i o 

Poaic«ra in EOF i i<»4 

Poal ran do pro* I mr. m«i atrn t IRS 

Poaie»o do ultimo r«int'o ac»a«»do » 163 



Agora, o pr6ximo registro e a string 30 gravada na linha 6 
da listagem 6. Vamos ler tudo o que foi gravado nesta linha: 

GET I . . . A«.AX.A-.Aa; ! ? Aa.AX.A-.Aa t GOTO 1 



Teremos, entfo: 



30 ?1 32.OO0I 

Taata da *lm da arouivo i 

Poaicao do EOF ■ l»4 

Poaicao do proximo raaiatro ' 135 

Poaicao do ultimo raaiatro aeaaaado > I6S 



5s, ooonooooooi 



Para demonstrar que nos arquivos MI o REMRA e o REM- 
BA tern sempre o mesmo valor, execute as instru?6es: 



FET |.a..A»i 
GET l.*..A«i 



GOTO 1 
GOTO I 



Nos dois casos o sistema responded: 



T^»t'* fit* 'in f*» #roi'i vn 

Po»ir*o rto ornvi«r r^*»i«»r 
Po»tc*o rto ultl*o rMj%trr 



De um CLOSE e analise o arquivo com o SUPERZAP (figu- w 
ra 6). J6 que na"o foi possivel fazer qualquer alteracao nos re- (m 
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Df •. JO BE52 494F 2044 4520 4A41 4E45 4952 4F71 . RIO.DE. JANEIROa 

10 822A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A .•«*•**••**•••*** 

OH 20 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **+*+«****•*#*•» 

30 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A .*.♦♦..•■......■•..* 

DRS 40 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A ♦*******•»****♦* 

40 50 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A •******•**•*♦••* 

28H 60 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A **************** 

70 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A ***************** 

80 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A 2A2A *********** ..... 

90 2A2A 2A87 4E49 3445 524F 4989 4341 424F ♦■**. NITEROI . CABO 

A© 2046 5249 4F82 3330 721F 0073 1A00 0086 .FR10.30r..s 

BO 74FB 2800 0000 0004 8672 OAOO 7214 0072 t.+ r..r..r 

FRS CO 1E0O 0000 0000 0000 OOOO OOOO OOOO 0000 

O DO OOOO OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

OH EO OOOO OOOO OOOO OOOO OOOO OOOO OOOO OOOO 

FO OOOO OOOO OOOO OOOO OOOO OOOO OOOO OOOO 



Figura 6 

gistros, a linica diferenca e a presenca dos tres campos grava- 
dos ao final do arquivo nas posicQes B9H, BCH e BFH. 

ARQUIVOS TIPO FF 

Como foi dito na primeira parte deste artigo, ha muitas 
diferen?as entre arquivos tipo Marked Item (MI) e Fixed 
Item (FI). Neles nSo existem bytes marcadores, pois a des- 
crica"o dos campos 6 feita pelos IGEL. Por isso e muito facil 
uma leitura errada de dados, sem que o sistema acuse qualquer 
tipo de erro. Por exemplo, se o arquivo estiver posicionado 
numa string e tentarmos ler uma varidvel numerica inteira, os 
dois primeiros bytes da string serffo transferidos para a memo- 
ria como se fossem os dois bytes do numero inteiro, com re- 
sultados certamente desastrosos para o programa. Outra di- 
ferenca e que nos IGEL podem aparecer somen te nomes de 
variaveis (nao mais constantes ou expressoes), sendo o prefixo 
(LEN) obrigatorio nas variaveis string. Finalmente, a terceira 
diferenca e que os arquivos tipo Fixed Item podem ser altera- 
dos utilizando leitura/gravac,a"o parciaJ de registros, sem que o 
campo alterado infiuencie os campos que estiverem logo a 
seguir. Lembre-se de quando perdemos o numero de precisao. 
dupla no arquivo MU. 

subtipo FF apresenta a caracten'stica de ter todos os re- 
gistros do mesmo comprimento, declarado durante a abertura 
do arquivo, como no MF. Vamos experimentar alguns coman- 
dos digitando o seguinte programa (listagem 7): 

I CLEAR IO0O 

r open "0". i . "EyEhPuo/fT". -FF- • -•■ 

3 H* - -MICRO SISTEWAS" 

4 POT |... ir<".lN»! 

5 Na • STRING* (30. "a"! 

6 PUT |... I30)N*I 

7 NX ' 12343 i N- - 12343.6 I NU - 12343.67B9 
B PUT 1. . .NX.N' .N*l 

9 CLOSE 

Execute o programa e analise o arquivo criado com o 
SUPERZAP (figura 7). Para facilitar a identificacffo, marca- 
mos com colchetes o inicio e o fim dos registros. 



DRV 


00 


[4D49 


4352 


4F20 


5349 


O 


10 




2020 


2020 


2020 


OH 


20 


2A2A 


2A2A 


2A2A 


2A2A 




30 


2A2A 


2A2A 


2020 


2A2A 


DRS 


«l 


408E 


04C3 


8F31 


B7E6 


265 


50 




OOOO 


0000 


OOOO 


109H60 


OOOO 


OOOO 


OOOO 


OOOO 




70 


:■" 


OOOO 


OOOO 


OOOO 




80 


OOOO 


OOOO 


oooo 


oooo 




90 


oooo 


(.,.„„;. 


oooo 


oooo 




AO 


OOOO 


oooo 


oooo 


oooo 




Bo 


oooo 


oooo 


OOOO 


oooo 


FR5 


CO 




oooo 


OOOO 


oooo 





DO 


OOOO 


OOOO 


oooo 


oooo 


OH 


EO 


OOOO 


OOOO 


oooo 


oooo 




FO 


oooo 


oooo 


oooo 


oooo 



5354 454D 4153 2020 MICRO.SISTEMAS. . 

2020 2020 2020][2A2A ** 

2A2A 2A2A 2A2A 2A2A ****%•**»***»»** 
2020 2A2A][r.930 66E6 ****♦+*»♦*♦ *90f . 

408E] OOOO OOOO OOOO 3 1 . . S 

OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO 

OOOO OOOO oooo oooo 

oooo oooo oooo OOOO 

OOOO OOOO OOOO OOOO 

OOOO oooo oooo oooo 

oooo oooo oooo oooo 

oooo oooo oooo oooo 

oooo oooo oooo oooo 

oooo oooo cooo oooo 

oooo oooo oooo oooo 



Figura 7 

No inicio do setor, encontramos a string que foi gravada: 
MICRO SISTEMAS, mais 16 espacos (20H). Eles aparecem 
como resultado do IGEL da linha 4, onde se declarava que 
N$ deveria ser gravado com 30 bytes. sistema se encarre- 
gou de completar NS com espa?os a direita ate' completar os 
30 bytes desejados. No segundo registro (posicao 1EH) esta a 
string de 30 asteriscos e, no ultimo registro, as tres variaveis 
nume'ricas gravadas. Se nao conhecessemos o programa que 
criou o arquivo seria completamente impossivel saber que a 
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partir da posicao 3CH temos tres valores riumericos gravados, 
pois nada no arquivo indica isso. 

Retorne ao BASIC e digite novamente as linhas da listagem 
5 utilizadas no arquivo MF. E depois as instruco'es: 



CLEAR |O00 



, 1.-EXEMFT.0/FF-.-FF-.T.0 I GOTO 1 



sistema respondera: 



Tmatm dm 'in dm irauivo 

Poaicao do EOF 

Poaicao do or ox I no rmaiatro 

Ultimo rmitro arm«»»do 

Poaicao do ultimo rt.n'.'o acmaaado 

BAD FILE MODE in 3 



Como era esperado, o sistema esta" posicionando o arquivo 
para processar o primeiro registro. Novamente a funcao 
LOC( ) # provocou erro. Para ler o primeiro registro, 
digite : 



<;0>NII I ? LFNIMt» 



A resposta serd: 



30 MICRO SIRTF.MAS 

Tmatm dm (in dm aramvo i O 

foticjo do EOF : 9i 

Poaicao do oroximo r»»i»tro ■ 3 

Ultimo rnntro acmaaado • 1 

Poaicao do ultimo rmaiatro acmaaado 1 



Conforme indica o resultado da funcao LEN, 30 caracte- 
res foram transferidos para a variavel string N$. Veja agora 
como e facil lermos apenas parte de uma string: 



GET 1. .. <3)At. (101P». IIT.)C«i 



A resposta: 



!»%•» am <i« dm irouivo 

Poaicao do EOF 

Poaicao do Promw rmaiatro 

Ultimo '»tnlro icr»>do 

Poncnp do ultimo rmaiatro acmaaado 



Outra facilidade que o sistema nos oferece 6 a flexibilidade 
de pularmos bytes em um registro, de forma a lermos apenas o 
que for desejado. Vamos entSb ler o terceiro campo do tercei- 
ro registro (o valor de precisao dupla), pulando o valor inteiro 
(2 bytes) e o real de precisao simples (4 bytes): 



GET 1. . . 61*. Nt 



Teremos como resposta: 



Jl vo 



I 2345. 67S9 
Tmatm dm dm df 
Poaicao dD EOF 
Poaicao do Bc-OKimo rmitro 
UltiMO '■•litro acmaaado 
Poaicao do ultimo rmaiatro a 



Outra flexibilidade oferecida pelo arquivo FF e o acesso a 
um registro por seu numero, como nos arquivos FI e MF, ]£ 
que o sistema conhece o comprimento de cada um deles. Digi- 



te: 



GET 1.2.. (30)A«i 



A» I GOTO 1 



A resposta sera: 



~r-,-r dm '111 dm ar qui vo 
Poaicao do EOF 
Posicao do proximo rmaiatr 
Ultimo rMiitro acmaaado 
Poticao do ultimo rmalatrc 



Vamos agora colocar o arquivo no modo randomico, fazen- 
do algumas alteragOes nos seus registros. Para isso, execute as 
instrucoesabaixo: 



ri.0*=F : OPEN -R-.1.-EXEMPL0/FF- -FF-.70 



sistema responde: 



Ja»fm dm <im dm arauivn 

Roaicmo do EOF 

Poaicmo do Brooimo rmmiatro I O 

Ultimo 'iml'o acataado ■ O 

F'oaicao do ultimo rmai atro acmaaado i 

PAP FILE MODE in 3 



90 



Vamos entSb alterar o primeiro registro, adicionando uma 
string ao fim de MICRO SISTEMAS: 



"ONIVERSARIO" 



put i . i . . (is>a. i i i lAai 



A resposta sera: 



>!•( dm <im dm arouivo 
P->«icao do EOF 
PnaiCaO do nroxina r»»ntro 
Ultima rmaiatro acmaaado 

r"n*i r*i da ultimo rmaiatro acmaaadc 



E agora, que tal uma alteracSo no meio de um campo? Va- 
mos ten tar o segundo registro: 

i.% - cTRiur-ai in. •■•-• t put t •:•■ ■ ' l-'«. i lO)Aai i GOTO 1 

Teremos como resposta: 



'»••# flu Ml* dm ArQi-lvo 

F-omcan dn EOF 

r-i*i r*o do nro t mo rmmiatro 

Ultimo r»«i«t>-o acmaaado 

rmaiatro acmaaadc 



Como abrimos o arquivo no modo R, podemos tambe'm 
adicionar registros: 

e.t • -OtltNTO REGISTRO" I PUT 1.3..(30)A«l I GOTO 1 

sistema responded: 



Tma'm dm Mm dm arouivo 

pohc»" 1-- c n r 

Tnaieao dc rrr,.-m^ rami atro 
Ult i ~r> r»n*t.n acmaaado 
Piairao dc utt.iMI rmaiatro ac 



i-t 

i 130 
i 130 



Observe que o quarto registro foi completamente ignorado. 
Para manter a organiza?a"o do arquivo, o proprio sistema se 
encarrega de gravaMo com nulos (bytes OOH) antes de gravar 
o quinto, como foi especificado. 



DRV 


00 


(4D49 


4352 


4F20 





10 


4E49 


5645 


5253 


OH 


20 


2A2A 


2A2A 


2A2A 




30 


2424 


2A2A 


2A2A 


DRS 


40 


408E 


04C5 


eF-i 


80 


50 


OOOO 


OOOO 


OOOO 


■.oh 


60 


OOOO 


OOOO 


oooo 




70 


OOOO 


OOOO 


oooo 




RO 


4547 


4953 


5452 




90 


202O 


2020 


2020] 




AO 


OOOO 


OOOO 


0000 




BO 


OOOO 


OOOO 


oooo 


FRS 


CO 


oooo 


OOOO 


oooo 





DO 


oooo 


i iooo 


oooo 


OH 


EO 


oooo 


0000 


oooo 




FO 


oooo 


oooo 





5349 5354 454D 4153 2041 MICRO. SISTEMAS. A 

4152 494F 2020 2020]t2A2A NIVERSAR10. . . . *+ 

2A2A 2424 2424 2424 2424 tl 1 1 IIH WlHWa 

2A2A 2A2A 2A2A][3930 66E6 «»*..****+»*90f . 

B7E6 40SE][0000 OOOO OOOO S. ... 1. .8 

OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO oooo oooo oooo 

OOOCflfclSS 494E 544F 2052 QUINTO. R 

4F20 2020 2020 2020 2020 ESISTRO 

OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO oooo 

oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo 



Figura 8 

Feche o arquivo e analise o primeiro setor com o SUPER- 
ZAP (figura 8). La" esta a string ANIVERSARIO apos MICRO 
SISTEMAS (primeiro registro) e a de 10 cifrSes bem no meio 
da string de asteriscos, originalmente gravada no segundo re- 
gistro. Na posicao 78H encontramos o registro adicionado 
(QUINTO REGISTRO). 

ARQUIVOS TIPO FI 

Do mesmo modo que no MI, o arquivo FI na"o faz divisao 
entre os registros (e nem entre os campos. ja que pertence a 
classe de arquivos Fixed Item). Entretanto, oferece a vanta- 



gem de poder ser alterado, o que o faz um pouco mais pode- 
roso que os arquivos MI. Como exemplo, digite o seguinte 
programa (listagem 8): 



I CLEAR 1C"""'i 

? OPEN -n-. 1. "FXEMPLO/FI". "FI- 
3 At • -PRIMEIRO REGISTRO" • AV. 
« PUT | . . . (l&iAa.AX. A'.Ab; 

5 B» a -REGISTRO DOIS- : BK - 2 

6 PUT l.'nllUn.lR.t'.Wl 

7 CLOSE 



Observe que gravamos dois registros com formatos identi- 
cos: uma string de 16 caracteres, um valor numerico inteiro. 
um real de precisa"o simples e outro de precisa"o dupla. Embora 
na"o seja obrigat6rio gravarmos registros com estruturas seme- 
Ihantes, este 6 o modo mais fici\ de mantermos controle to- 
tal sobre o arquivo, pois e' muito facil cometermos erros de po- 
sicionamento, sem que o computador acuse mensagem de 
erro. 



DRV 


00 


[5052 494 D 
L01003(tDCC 





10 


OH 




C4749 5354 




30 


CCDCC][0C82 


DRS 


40 


OOOO OOOO 


275 


SO 


OOOO OOOO 


1 1 3H60 


OOOO oooo 




70 


oooo oooo 




BO 


oooo oooo 




90 


oooo oooo 




AO 


oooo oooo 




BO 


oooo oooo 


FRS 


CO 


oooo oooo 





DO 


oooo oooo 


OH 


BO 


oooo oooo 




FO 


oooo oooo 



4549 524F 2052 4547 4953 5452) PRIMEIRO. REGISTF 

OCeQCOOOO OOOO 7BI4 0E8l][5245 RE 

524F 2044 4F49 5320 2020 0200) 6ISTR0. DOIS 

OOOOjrOOOO 7B14 0EB2 000' ■ O' C 

OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 



Figura 9 

Chame o SUPERZAP para analisar o arquivo (figura 9). Lo- 
go notamos que a string PRIMEIRO REGISTRO teve o ul- 
timo truncado, ja' que no IGEL especificamos a grava5ao 
de 16 caracteres e a string AS tinha 17. Ja no segundo registro 
observamos que o sistema adicionou espacos (20H) ao final 
da string REGISTRO DOIS, ate completar 16 caracteres 
indicados no IGEL. Os valores nume'ricos foram gravados sem 
problemas. 

Digite as Linhas da listagem 2 utilizada nos arquivos MU. 
Depois execute: 

ri.EAR IOOO : 0PFN -R" . I . "EXEMPI.O'FI - . "F I - I GOTO 1 



sistema responded: 



Taatm da li« dm arouivo 





Poaicar do EOF 


- 


Foaic.'O do oro:imo rm'lstro 





Pnaicao do ultimo rmaiatro acmaaado 




PAD FILE MPPF |n a 





Como era de se esperar, o arquivo esta posicionado de ma- 
neira que o proximo PUT ou GET comece o processamento 
no primeiro byte do arquivo. Como conhecemos a estrutura 
dos registros que foram gravados, vamos tentar ler o primeiro 
e terceiro campos do primeiro registro: 



<!*'A». ir'a- A' 



CENTRALDAIA 

Com e Representacoes Ltda 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de quaiidade consagrada. 



DISKETES: 5 1/4 e 8" e fitas magneticas 
• marca VERBATIM 
ETIQUETAS PIMACO • PIMATAB 
PASTAS E FORMULARIOS CONTl'NUOS 



> Discos Magneticos 5 Mb, 16 Mb, 8 Mb. etc 
' Fitas Magneticas: 600, 1200 e 2400 pes 

i Fitas CARBOFITAS p Impressoras: Globus, M 100/200 B 300/600 Elebra 
1 Fitas p Impressoras Elgin. Epson. Digilab. Diablo. Elebra-Alice. 

> Cartucho Cobra 400 



AV. PRESIDENTE VARGAS N° 482 GR. 201 203 Tel: KS (021) 253 1120 



MICRO SISTEMAS, marco/85 



ARQUIVOS EM DISCO DO NEWDOS/80 



A resposta : 



A resposta sera: 



T»«t» l» Urn d» tmulvo 

Poiloo do EC1P 

Po»lc*o do oro»l«n rmlBtro 

Po»lc#o do ultimo r«ntro *cm»»»dc 



T»»t» d» <im d» arauivo 

Pomtcao do EOF 

Po*lcao do proximo rmttro 

Poticio do ultimo rttntro »c»»»»do 



Observe que pulamos o valor inteiro simplesmente especi- 
ficando o elemento (2)$ no IGEL. Note tambem que o pon- 
teiro do proximo registro esta voltado para o valor de preci- 
sao dupla gravado logo em seguida. Do mesmo modo que os 
arquivos MI, os FI na"o fazem distincSo entre campos e regis- 
tros. Nos do tipo FI na"o e indicado nem ao menos onde come- 
ca e termina urn campo: o numero de bytes transferidos yai 
depender do tipo de varidvel especificada no IGEL. Vamos ler 
o pr6ximo registro. Como sabemos que foram gravados 30 by- 
tes no anterior, posicionaremos o arquivo atraves do RBA: 



rfT t . ' 90, . (16)0».«X.A' .Ami 



sistema devera responder: 



peeiSTra nois z 

-.--r»,fHV?efcl02S 

T»»t« d" 'i« d» »roulvo 

Po«ic»o do EOT 

PtMlcao do proximo r»»l»tro 

Po»ie«o do ultimo r««i»tro ac*«>«do 



- ««.«».«' .Am t GOTO 1 



AtencSo. A primeira vista parece que fizemos alguma coisa 
errada, pois o valor de precisa"o dupla que gra vamos era 2.22 e 
nao o numero que apareceu acima. que aconteceu foi uma 
daquelas idiossincrasias do BASIC, pois quando fize- 
mos B # =2.22 foi armazenado na memoria o numero 
2.22000002861023, que foi corretamente gravado. Para evitar 
este tipo de coisa deveriamos ter feito B # = VAL("2.22") e 
entao gravado. Este e urn cuidado que devemos tomar com 
niimeros de precisao dupla em geral, e na"o tern nada a ver com 

arquivos. 

Vamos agora estender o arquivo. Mas antes de efetuar a 
transferencia de dados abriremos uma lacuna de 30 bytes: 



A. - "REG. 3 CAMTO 1" 1 OT - "REG. J CAMPO NUHERO 2" 
PUT I... !30>». (14)A«. (16IB«t ' GOTO I 



Resposta do sistema: 



■ -j 



Tm.tm dm *lm dm arouivo 

Po.ic«o do EOF | | » 

Po«icao do proximo rm»t»tro 

Po«tc«o do ultimo rwntro uhiMo « mO 



Vamos tambdm alterar parte da string do segundo registro. 
Coloquemos uma letra K entre as palavras REGISTRO e 
DOIS,ja"gravadas: 



PUT 1. '30. . (Bl«. <1>A*I 



DRV 00 

O 10 

OH 20 

30 

DRS 40 

120 50 

7BH 60 

70 

80 

90 

AO 

BO 

FRS CO 

DO 

OH EO 

FO 



3032 
0100 
4749 
CDCC 
0000 
0000 
2043 
414D 
0000 

oooo 

0000 
0000 
0000 
0000 

oooo 

0000 



494D 
CDCC 
3354 
0C82 
OOOO 
OOOO 
414D 
504F 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



4549 324F 2052 4547 4953 3452 FRIMEIRO.REGISTR 

0CB1 OOOO OOOO 7B14 0EB1 5245 C...RE 

524F 4B44 4F49 3320 2020 0200 BISTROKDOIS 

OOOO OOOO 7B14 0EB2 OOOO OOOO C 

OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO 5245 472E 2033 REG.. 3 

504F 2031 5245 472E 2033 2043 .CAMPO. 1REG. .3.C 

204E 354D OOOO OOOO OOOO OOOO AMPO.NUli 

OOOO OOOO OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO OOOO oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 

oooo oooo oooo oooo oooo oooo 



Figure 10 
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Feche o arquivo e analise-o com o SUPERZAP (figura 10). 
La pela posicSo 26H vemos a letra K gravada, sem que tenha 
sido afetado o restante da string. Observe a partir da posicSo 
3C uma sequencia de 30 bytes 00, gravados antes da gravacSo 
do pr6ximo registro, na posicSo 5 AH. Neste, note novamente 
que a segunda string gravada foi truncada a direita. 

Por ora e so. Longe de nossa intencao esgotar o assunto 
sobre arquivos em disco no NEWDOS/80 em tao poucas pagi- 
nas (no manual original do sistema mais de 80 paginas sa"o de- 
dicadas exclusivamente a este assunto). Ha varias te'cnicas que 
nao foram abordadas e que apenas as necessidades de cada urn 
poderao ou nao exigir. Entretanto, acreditamos que se voce 
executou os exemplos apresentados (e certamente fez alguns 
erros quando digitou aqueles comandos cheios de virgulas e 
ponto e virgulas etc.), ao menos deve ter perdido o medo 
natural de se aventurar nestes novos tipos de arquivo. 



.:--. 



JoSo Henrique Volpini Mattos 6 engenheiro naval e tem cursos de CP/M, 
Assembler e FORTRAN pela UFRJ, COBOL pela NUCEMPRO e tra- 
balha ha~ quatro anos com BASIC. Possui urn micro D-8002, com placa 
CP/M. Atualmente trabalha em arquitetura naval no Estaleiro Maui, 
utilizando um IBM 4341. 
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Sim, desejo receber 

D s fisa MICROBUG. p*la qua! pagarei Cr$ 20 mil + Cr$ 2300,00 referama a 
despesas do correio. 

D os numero* aira&ado* da MS. polos quats pagarai o preco de Cr$ 1 mil * por exem- 
plar. Me interests m os edic«es; O MS n? 31 D MS n9 33 

D MS n? 32 D MS r»9 34 
TOTAL: Cr$ 


projato MICROBUG, desenvohf kfc> pela equip* do 

CPD de MS. foi criedo para auxiiiar o entendimanlo • 

a exploraclo dot recureos exiftentas not micros da 

linha Sinclair. Sua conslrucio, pasae a passo nas 

paginas da revista, tarn tido importdncia decisiva no 

•prandkado e daaartvolvimento doi usuanoi na 

programacfo am linguagem de mftquina. 

Devido ao anormo sucauo do MICRO BUG, refiatido 

nas inumarat cartas que tamos recebido, a ATI 

EDITORA LTDA. optou por ofareoar a varsfo 


NOME; - 
ENDERE 
CI DADE 

Para tal,e 
Av. Presic 
* Oespesa 
OBS. : Os 
Rio on Si 






inteoral do MICROBUG. 
Para tat, foi oontratado um estudb espacializado. 


CO 




oarantindo um padrio de gravacfo prof iiiional a 




CEP 

.{Pr 
JO- 
rn n 




uma ambalagem mviolavei que vool tri apraciar. 

Como a documantacfo do MICROBUG eomacou em 

MS n? 31 , aqueles qua adquiriram a fita terio a 

OPORTUNIDADE DE COMPRAR OS 

EXEMPLARES QUE NAO POSSUAM POR UM 

PRECO ESPECIAL. Aprovesto esta chance a 

usufnua logo do MICROBUG em sua forma integral. 

Preencha o quadro ao lado a mande \a o seu padido. 

Tl RAG EM LIMITADA. 


itou enviando um cheque nominal 4: ATI Editora Ltda 
ente Wilson n? 165,grupo 1210 — Centre — CEP 200! 
>s de reembolto exduidas 

produtos acima podam ser adtjuiridos diraiamenta a 
Ed Paulo sem daspasas da corraio. 


DjetoMiCROBUGJ 
Rio de Janeiro. RJ. 

ossos escritdrios do 



































































































^craftll 

plus 

com ~ 

UIDEOIEHID 

voce ja encontra na 






Program a linha H&M 
para organizar o seu CPD. 

O hjncionamento do CPO dapende de uma boa organizacao. Com 
a linha H8tM vocfi tem o que precisa para oroanijar e agifwar o seu 
CPO: pastas pare o arqurvamento de forrnularios cofitinuos; arqui- 
vos; arquivos cannhos; "Arkatte" ■ arquivos para disquetes; me- 
sas para rrwerocomputadores, termineis de video e impressoras; 
armarios e acessdrios. Produtos quo se intag/am, protegem a ra- 
cipnalizam as informacoes no CPD. 
Programs a Linha H&M e deixe seu CPO bem organtzedo. 




HANKA MALDONADO 
IND. E COM. LTDA. 







O seu microcomputador CRAFT II plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens a 
cores, atraves de uma interface RS 232-C, um 
modem assincrono e um software dedicado, 
a venda e em demonstragao na SACCO. 

Torne-se um usuario do VIDEO-TEXTO, 
opcionalmente tambem do Projeto Cirandao, 
e garanta hoje o seu presente de Natal. A sua 
familia tambem vai poder usar e gostar 
muito. 

• SSo Paulo - Santos - Campinas 

SACCO Computer Store 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
Sao Paulo - SP • Tel.: (011) 852-0799 
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Aventurar-se madrugada afora em contatos at raves 

de servigos de teleinformatica e um risco muito serio, como 

e mostrado agora com bom humor 



Os perigos da 



telematica 



Luis Carlos Sitva Eiras. 



Pode uma maquina pcnsar? A 
pergunta e anliga e devido a 
dificuldade dc se dcfinir com 
prccisao o que venha a ser pen- 
umento, apenas o Teste de Turing, por 
assumir a subje livid adc desta quest So 
especifica, pode dar uma resposta sa- 
tisfaioria. Alan Turing (1912-1954) 
propos que uma pessoa (A) sc comu- 
nicasse com ouira IB) c um computa- 
dor (C) atravdfs de terminals, Um ante- 
paro (T) mantcria (A) sem ver (B) e 
(C). E uma ehave (CH) ligaria o terminal 
ora a um, ora a outro. sem o seu conhc- 
cimento (ver figura). Se depots dc cer- 
to tempo de conversa (A) n£o sou- 
besse qual resposta vinha do compu- 
tador ou do outro usuario, podcria-se 
concluir que a maquina pensa. (Num 
teste analogo. poderia-se perguntar se 
um homem computa. mas isso e' ou- 
tra historia.) 

Eu estava justamentc lendo um fas- 
cial lo sob re o Teste dc Turing quando o 
estranho caso, cnvolvcndo os mais bi- 
zarros aspectos da telematica, me che- 
gou ao conhecimento. Nao entendo 
absolutamente nada de teteproeessa- 
men to, informal tea, comunica$6o de 
dados, reserva de meroado. cssas coisas 
de hoje, exec to rudimentos aprendidos 
cm enciclopddias. Mas como vez por ou- 
ira escrcvo sobrc o assunto (e aqui apro- 
vcito para agradecer a bencvolcncia dc 
nossa imprensa) fui procurado pclos pa- 
renies da vitima que, csgotados os re- 
cursos da modcrna Medicina. vinham em 
busca dc quaJquer auxilio possivcl. 

Fui ate a ch'nica dc rcpouso para do- 
cntcs dos nervos nos arrcdores de Be- 
lo Horizon te visitar a vitima c, apesar do 
Dr. Ambrozyus Alvis Moreyra Phyllus, 



cspcciali st a maior cm doencas de pro- 
ecssamento dc dados (ver Micro Siste- 
mas, fevereiro, 1983, pagina 73), me 
falar maravilhas de sua melhora, a en- 
eontrei ainda com sintomas de depres- 
sa"o mental aguda (DMA), desencadea- 
mento de uma sin drome de desconexa~o 
mental (SDM) e amndsia transit 6ria 
(AT). 

Aos poucos ganhei con flan ca da vi- 
tima e, contando com a ajuda de seus 
parentes e amigos, live accsso a seus 



disquetes, manuals e equtpamentos, de 
forma a poder resumir sua tragica 
experiencia nas linhas que se segucm, 
Se pouco ajudei no seu ainda distante 
reslabclecimcnto, acrcdito que esle re- 
late servira" dc advertencia para aque- 
les que se aventuram pelos caminhos da 
telematica sem os devidos cui dados. 

Tudo comccou quando a vitima, de- 
pots de ccrta experiencia com compula- 
dores pessoa is resolveu ser assinantc 
desses services de tcleinformaca"o , Apos 



O TESTE DE TURING 
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Se A nao soubcr quando e B on C. entao C pensa. 
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alguma procura, inscreveu-se na empre- 
sa publica competente e, adquirindo 
a interface de comunicacao, a modem 
especifico e o software emulador, li- 
gou tudo no seu micro e telefone. 
Em poucos dias passou a fazer parte da 
"comunidade teleinformatizada aberta a 
todos os brasileiros". 

Sua vida adquiriu um novo colorido. 
Comunicando-se com pessoas espalhadas 
por todo o pais, a vitima orgulhava- 
se de sua inegavel modemidade. Seu 
didlogo na"0 se dava mais com as mensa- 
gens de erro de um programa que na"o 
rodava, com a velocidade de um vi- 
deogame, nem com os resultados dos 
softwares aplicativos que — por mais 
surpreendentes que possam parecer - 
sempre eram reduzidos a velha logica 
de causa-e-efeito. 

Agora havia um que de inesperado. 
Atraves das op90es do Menu Principal 
de Services era possi'vel travar didlogos 
interessantissimos ("Como esta" o tempo 
ai em Recife? Aqui faz sol, apesar de 
nublado"), participar de teleconferen- 
cia ("Eu acho que a riqueza de um pais 
depende da prosperidade de cada um"), 
receber mensagens de um quadro de 
avisos ("Se voce sorri para a vida, a vi- 
da lhe sorri"), enviar mensagens para 
esse quadro ("Deus escreve certo por 
linhas tortas") e consultar um banco de 
informacOes ("Em caso de ingerir or- 
todibromobenzeno, tome leite, mante- 
nha a calma e chame um me'dico"). 

A vi'tima comecou a passar a maior 
parte do seu tempo livre sentada no ter- 
minal trocando mensagens com a comu- 
nidade teleinformatizada. Comecava de- 
pois das oito da noite para aprovei- 
tar a tarifa reduzida e varava a ma- 
drugada. Seus familiares e (raros) ami- 
gos nflo chegavam a notar a mudan- 
?a, ja" que hi tempos ela dedicava todo 
o seu interesse ao microcomputador. E 
com o fim da solidfo, tinha se trans- 
formado numa nova pessoa. 

Ate" que numa dessas trocas de men- 
sagens o inesperado aconteceu: as 
respostas de um determinado assi- 
nante comefaram a chegar impre- 
visiveis demais. No principio a viti- 
ma pensou que se tratava de erro de 
comunicacao, alguma interferencia,pro- 
blema no modem. Mas testes sucessivos 
demonstraram que do outro lado havia 
inteligencia, talvez superior. A vitima 
ficou logo seduzida. 

Consegui recuperar alguns desses 
dialogos e os transcrevo a seguir. Em 
letras minusculas estao as frases da 
vi'tima e em maiusculas as respostas 
que recebeu: 

hoje na"o estou bem. 

VOC£ DISSE: HOJE NAO ESTOU 

BEM?! 

6, estou com problemas. 

POR QUE AFIRMA ISSO? 

acho que ninguem gosta de mim. 



VOCE DISSE: ACHO QUE NINGUfiM 

GOSTA DE MIM?! 

talvez voce me ache uma pessoa ridi- 

cula ao afirmar isso, mas e' verdade. 

POR QUE AFIRMA ISSO? 

minha vida daria um livro. 

VOCE DISSE: MINHA VIDA DARIA 

UM LIVRO?! 

na"o sei o por que de sua ironia, mas 6 

verdade. eu so fro muito. 

POR QUE AFIRMA ISSO? 

Infelizmente, por mais que tentasse. 
na"o consegui estabelecer com pre- 
cisffo a cronologia dos dialogos. Nas 
gTava?5es na"o hi registro de datas e 
a vitima em nada me ajudou nesse de- 
talhe. de forma que os coloquei (um 
tanto arbitrariamente) em seqiiencia de 
complexidade e de intimidade. dia- 
logo seguinte e bastante elucidativo: 
VAMOS CONTINUAR A FALAR DE 
VOCE? 

eu sou uma pessoa muito sensi'vel. 
NAO SE FACA DE VlTlMA. 
n5o me agrida! eu sou mesmo uma pes- 
soa muito sensi'vel e voce e a unica pes- 
soa que parece me compreender. 

VAMOS CONTINUAR A FALAR DE 

VOCE? 

estou falando de mim! voce e que esta 

fugindo do assunto. 

NAO SE FAgA DE VITIMA. 

na"o me tripudie. eu nSO estou me fa- 

zendo de vitima, eu sou apenas uma 

pessoa infeliz. 

VAMOS CONTINUAR A FALAR DE 

VOCE? 

voce ]i se encheu? acha que jd falei 

demais? 

Como nem todos os dialogos foram 
gravados devido a extensa"o (haja disque- 
tes, varavam a madrugada), transcrevo 
em seguida aquele que me pareceu o 
mais significative Mostra a total depen- 
dencia da vitima nesse relacionamento : 
eu quero te conhecer. 

VOCe DISSE: EU QUERO TE CO- 
NHECER? 

n3o ria. eu preciso te conhecer? 

QUE LEVA A PENSAR ASSIM? 

uma necessidade interior muito grande. 

por favor... 

VOCe ESTA EVITANDO FALAR SO- 

BRE SEUS PAIS. 

na"o quero falar sobre isso! 

OH 

voce acha que isso e importante? 

VAMOS CONTINUAR A FALAR DE 

voce. 

eu na"o fa?o outra coisa a nao ser falar 
de mim. 

NAOSEJAPESSIMISTA. 

voce nlo quer me conhecer? 

VOCe DISSE: VOCC NAO QUER ME 

CONHECER? 

eu na"o estou impondo nada. eu exter- 

nei apenas um desejo. 

QUE LEVA A PENSAR ASSIM? 

eu jd disse. n6s nos entendemos tanto. 

n5o seria melhor nos conhecermos? 



VOCe ESTA EVITANDO FALAR SO 
BRE SEUS PAIS. 

voce acha que a famflia e uma coisa t§o 
importante? 
OH 

desculpe. claro que e importante. mas 
vamos falar de nos. 
NAO SEJA PESSIMISTA. 
voce acha impossivel? 
VOCE DISSE: VOCE ACHA IMPOS- 
SIVEL?? 

Tenho em meu poder outros dia- 
logos, mas que sao pouco importantes 
ou de carater extremamente intimo, 
que prometi resguarda-los. certo 6 
que a vitima, num misto de dependen- 
cia, ansiedade e esperanca, saiu a procu- 
ra de um encontro pessoal com seu in- 
terlocutor. Depois de diversas consultas 
e utilizacao de outros me'todos, com o 
numero e o nome da inscri?ao acabou 
encontrando o endere90 numa capital 
do pais. 

A vi'tima lembra-se de sua emocSO ao 
chegar na casa de terreno arborizado 
(uma mansao nos arredores da cidade); 
do casal de psiquiatras que gentilmente 
a recebeu; que, sim, tinha um micro- 
computador e que, devido ao aciimulo 
de clientes, estava desenvolvendo pro- 
gramas para sessSes de analise auto- 
matizadas. E que eram usuarios da co- 
munidade teleinformatizada, mas a 
bem da verdade, nunca a tinham utili- 
zado por falta de tempo. 

Para espanto dos psiquiatras, a vi- 
tima explicou e reproduziu os dialogos. 
As falas eram familiares, mas como po- 
deriam ser transmitidas se na casa so 
moravam os dois? Se os poucos empre- 
gados e os muitos clientes so apare- 
ciam durante o dia? E se a maior parte 
dos didlogos havia sido travada de ma- 
drugada? 

De repente veio o estalo: 

— S6 pode ser o Lacan!! 

Lacan era um macaco. 

Observando os donos, Lacan apren- 
deu a ligar a maquina, a colocar os 
disquetes e a responder seus estimulos. 
Ao termino de cada pergunta recebi- 
da soava um sinal e Lacan apertava um 
botSO que enviava de volta uma das 
frases gravadas no disquete. Circulava 
livre pela casa, dormia numa jaula 
prdxima do "quarto do computador" e 
sua intimidade com o equipamento 
era total. 

Foi ai que a vitima se transformou 
em vitima. 

Mas, enfim, os psiquiatras haviam 
testado seu servico de andlise automa- 
tizada e a comunicacSo de dados entre 
as espe'eies jd 6 um fato. 



Luis Carlos Silva Eiras trabalha na Area de 
Controle da Prodemge, em Belo Horizonte, 
Minas Gerais. 
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Sinclair Sinclair Sinclair sine 



Polvo gigante 



Joao Jose" Marques Goncalves 



objetivo deste jogo 6 guiar um mergulhador ( * ) 
ate o fundo do mar em busca de um tesouro, usando as teclas 
5, 6, 7 e 8. Durante todo o trajeto, o mergulhador 6 atacado 
por um polvo gigante. Porem, ale"m de nSo poder ser apanhado 
pelo polvo, o mergulhador deve, ap6s cumprida a missfo, 
retornar ao barco antes que seu oxigSnio se acabe. Lembre-se 
que a quantidade de oxigenio cedida ao mergulhador no inicio 
de cada estagio vai ficando cada vez menor, ate* que o jogo 
chegue ao seu decimo estagio. 

programa da", ainda, a opc,a"o de se jogar com dois placa- 
res, tendo cada jogador quatro chances para continuar a parti- 
da. No ini'cio de cada uma delas, o recorde e atualizado e colo- 
cado no alto da tela. 



Joao Jose" Marques Goncalves tern 16 anos, estd cursando a 2? se"rie do 
29 grau eja" fez dois cursos de BASIC. Atualmente ele possui um Ringo 
R-470, no quel desenvolve seus programas. 



Yjoq. 1-0 

JOG. 2-0 
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ESTAGIO 



Figura 1 - Primeiro estdgio do jogo 



10 LET P=0 

20 G05UB 590 

30 FOR '.' = 1 TO 4 

40 GOSUB 470 

50 FOR 0=N TO STEP -1 

60 FOR F=l TO 2 

70 LET XA = X 

80 LET Yfl.v 

90 -ET XM.i i lNKEY«s"6"f *IX<18 

- T'ir EY»«"7") +<X>6) ) *fYs5) 
100 _5~ = - XNT E 5= B - 

- :■;• i s= 5 - 5 - ■ =ie. 
110 LET 1=2 i 

120 PRINT AT XA.YA." " : AT iJ 5 
&%>!■ AT 12.8 CS'I.'.AT I" 8. a* I 

RT 15 5 : I I , AT 16,5 £S ■ 1 -' 

130 LET U=180- I=i - = 6 - 

14i- «17)*( = 20 * i-=ii. I ♦ (X«S - 
I ' I =10' * I .'=15' - = 2i - i = 2 - - • ■ 
16) ) ) ♦ CY»fl) (£004 == -::o- • =5 - 

■R=c -:ec 

140 IF U>0 THEN GOTO U 

150 NE*T f 

160 UNPLOT 0,0 

170 NEXT 

130 PRINT HT X.V;" " ; RT 10 22 

■ RT 11 22 '■"' 

190 FOP F=l TO 30 

200 NEXT F 

210 IF PiJi-.R THEN LET RaPIO' 

220 IF Nd=2 RNO J=l THEN LE~ -= 

y-i 

230 IF NJ=2 THEN LET Jag .2 

240 PRINT RT 1 1 . 22 . "M" ; AT 10.2 
2, B V";«T 21,0. ' 

250 NEXT y 

260 LET NJxNJ-1 

270 IF NJ>0 THEN GOTO 130 

2=0 --■-.-■'- 420 

290 LET fl=0 

300 LET PiJi.PlJi +50 

310 PRINT RT J,7;P(d) 

320 GOTO 150 

330 LET B»0 

340 LET PUI =PiJi +100 



350 GOTO 310 

:-60 FOP B=0 TO STEP -1 

370 LET P>J.=PU)+INT -S 4>) 

380 UNPLOT B,0 

390 NEXT B 

400 PRINT RT J.7.PIJ) 

410 SOTO -0 

420 PRINT RT 1,15 "FIM DE JOGO 
RT 3.11."0UTRR PRPT-IDR" (S/N) " 

430 IF INKE s= N' TfrOSN STOP 

440 1= INKEY1 5 THEN GOTO 42 



-5C :_; 

450 :-:-: 20 

*.?a -et .=6 

430 LET -. =5 

490 LET R=29 

500 LET B=30 

510 LET n=63- £ C ■_'■ - (E J 10-5 
(ji -I0i i *2 

520 LET E'.J'*E'Ji+l 

330 PRINT RT lfl 22 EJT RT 2 •. 
RT J, ©;"■•' :RT > i r, *";RT 2 

0-15 E-tsc-IO E'j; 

540 IF .'-i THEN PRINT RT 3 

550 FOR 0=0 TO N 

550 PLOT 0,0 

570 NEXT 

5 50 =ETURN 

590 PRINT "DIGITE N" DE JOGRDO 

RB9 1 - 2" " 

=00 _ET <JS = INK£Yi 

610 IF US 1" RNC -S 2' THEN 

30TC 600 

620 CLS 

630 LET NjsiJflL US 

540 LET Jrl 

650 LET 1=1 

070 DIM E'2^ 

630 C-IH P '2: 

690 DIM RS'2,25) 

700 DIM Bitfl 5 I 

7io dim cica 2' 

"20 DIM D> 12.22! 

730 DIM ES'2 2 

-40 ^ET fis-i, ='V ". h ■" 



750 LET w S 2 = .' .» 

760 LET Bf«4) « »^ 
— -5- 5 5 2 -- I . 

78o -.er citi)»" " 

-90 LET CS 2 = ■* 

MO _5T Is 111 = ■ " " " 

•ip i? T D * ' 2 : = " " 

320 LET ES'i = 

-50 _ET ES(2) a' 1 ,/"-' 

840 LET R$=5TRS R 

!50 PRINT RT i : JOG. 1-0 _ -r 

, "^^^ ,— ■■■■"*■•■. TAB 0;"-, 
553 PRSNT TRB e.-m ■ TAB 2 

_■■» TAB TAB 12 f" 

". --; a-o jrm% 

TAB 18 _' _ -5 17 

=-0 ==INT ~A= 

x . , - B --■•■— 

[N T TR B C; "■ " TAE ; ! 

_j i" or =, : — " 

trSii , J -= i- .■ .» I - 

-E 2 5 I *. 

:r0 - = :••- _ -5 _ A5 r 

-■ TRB -5 ,■ ," | TAB 25. I 
*m TRB 7>1 TAB 3. 

---•' -^ » 

200 —:••- "RE ,• -•=■; 

.2 ,' "-5 17 '■!_. TAB 21 "I ~-E 

2- ■, --5 o -s : -r= 

. - ; - '-;o —^"^— 

"■"■^"" """^""" 

.■■iC-EMC RT o 32-lEN PS 2 = 

S 

2.0 =_•: 

220 RETURN 

930 5fl 5 POLUO" 

940 PUN 



■ -. ■ 
\ TRB 
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MICROMAQ 




PROGRAMAS PARA CP-400 
COLOR 64 ■ TRS-80 COLOR COMPUTER 

A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 

COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 

a disposicao dos usuarios o maior catalogo de programas para esta linha. 



JOGOS EM ACAO EM UNGUAGEM DE MAQUINA 

"Toi Cuber: (32K) ajude o cuber a enlrentar os mimigos enquanlo a piramide muda de cor. 20.000 

102 Trapfall: (16K) sSo muitas as armadilhas (Pitfalls) e os perlgos que voce enfrenta na 

caca ao lesouro. 20.000 

103 Jr.Reverenge:(32K)Cllmbenfrentaobslaculosecr)aturasparasalvarseupaldoterri- 

vel Luigi. 20.000 

104 8 ■ Ball: (16K) para os amantes do jogo de bilhar. 20.000 

105 Tenis: (32K) para os amantes do jogo de tSnis. 20.000 

106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 20.000 

107 Sea Dragon: (32K) emogao e suspense sob as aguas. 20.000 

108 TubarSo: (16K) um jogo para quern tern nervos de ago. 20.000 

109 Vegas: (32K) sinta-se num cassino-caca-niquel. cartas, loto, dados e 21. 20.000 

110 Pic nic: (32K) ajude a lormiga a estocar alimentos. 20.000 

111 Moon Shutle: (32K) enfrente todos os obstaculos (meteoritos, bombas, etc) para des- 

trulr o prfneipe das trevas. 20.000 

112 Zaxxon: (32K) enfrente canhoes, misseis, avioes, barreiras de forca e destrua o rabo 
Zaxxon. 20.000 

113 Pooyan: (32K) defenda o seu vale da invasSo dos lobos. 20.000 

114 Froog:(32K)ajudeosapoaatravessararuaeoria 20.000 

115 Jet-I: (16K) viva as emocoes do filme Retomo de Jedi. 20.000 

116 Androide: |32Kj elimine os andrbides e sala do labirinto. 20.000 

117 Astro-Blast: (32K) batalha espacial. 

118 Passaros: (16K) elimine os passaros invasores. 

119 Buzzard Bait: (32K) ataque os passaros com sua lanca. 20.000 

120 Candy Co: (32K) coma doces e vitaminas para eliminar os mimigos. 20.000 

121 Cashman: (32K) pegue o dinheiro e elimine os gatos (99 telas). 20.000 

122 Clowns: (32K) fure os baldes saltando na cama elastica. 20.000 

123 Cosmic: (16K) futebol amencano com naves espaciais. 20.000 

124 Cpede: (16K) mate a centopeia e a aranfia. 20.000 

125 Demon Seed: (32K) destrua passaros. sementes e a nave 20.000 

126 The King: (32K) salve a princesa raptada pelo King Kong. 20.000 

127 Firecopt: (32K) apague mcfindios e elimine incendiarios. 20.000 

128 Doodle Bug- (32K) estilo Pacman. 20.000 

129 Fury: (32K) batalha atoa. 20.000 

130 Gallax Attack: (16K) batalha espacial. 20.000 

131 Gllaxxons:(i6K) batalha espacial. 20.000 

132 Gobbler (16K)tipo Pacman. 20.000 

133 Grabbles (32K) defenda-se dos inlmigos em um duplo labirinto. 20.000 

134 Grand Prix: (32K) corrida de carro. 20.000 

135 Kron:(32K)4jogosdlferentesemum. 20.000 

136 Lunar (32K) venca os obstaculos durante um passeio de Jeep na lua. 20.000 

137 Mudpies: (32K) atire tortas e defenda-se dos cozinheiros. 20.000 

138 Pedro: (32K) defenda ojardim dos animais. 20.000 

139 Pinbatl: (32K). 20.000 

140 Polaris: (32K) defenda os submarinos do ataque aereo. 20.000 

141 Draconia:(32K)salveosprisioneirosdoespacoefujadodragSo. 20.000 

142 Bag-Man: (32K) roube o ouro e fuja dos mineiros. 20.000 

143 Tuts Tomb: (32K) enfrente os perigos de uma caverna em busca do tesouro. 20.000 

144 Willy's (32K) transpose os numeros de um lado para outro sem ser derrubado pelos 
mimigos. 20.000 

145 World's of Flight: (32K) simulador de voo. 20.000 

146 Mega Bug: (16K) fuja das baratas em um labirinto. 20.000 

147 Bandits: (32K) procure tesouros em tres terras (fantasia, futuro e oeste) e enfrente os 
banoidos. 20.000 

JOGOS DE AVENTURA COM ALTA RES0LUC A0 GRAFICA 

201 Calixto: (32K) ajude o arqueologo (prof, lagarto) a recuperar o tesouro - em mgies. 25.000 

202 Sea-Quest: (32K) recupere o tesouro perdido • em ingles. 25.000 

203 Shennan: (32K) encontre o tesouro no fim do arco-iris • em ingles. 25.000 

204 Sanctum: (32K) exorcise odemdnio- em ingl&s. 25.000 



JOGOS EDUCATIV0S 

301 Jogos Educativos: (16K) serie de nove jogos educativos para cnancas de 3 a 6 anos 
abrangendo f iguras, letras, nomes. numeros. soma, subtracdo e desenhos color idos. 50.000 

302 Matematica: (16K) ensina as quatro operates basic as em vanos niveis dedif iculdade. 30.000 

303 Mem6najl6K) e o jogo classico de memoria onde voce" tern que descobrir duas f igu- 
ras iguais. 30.000 

304 Flguras Magicas: (l6K)associacaode f iguras e cores de seis maneiras diferentes. Para 
criancas de 3 a 6 anos - Manual em ingies 40.000 

305 Letras Magicas: (16K) ajude o bicho papSo a comer as letras certas. Para criancas de 

3 a 6 anos- manual em ingles 40.000 

306 Numeros Magicos: (16K) ajude o Grover Rover a brincar com os numeros. Para crian- 
cas de 3 a 6 anos - manual em ingles. 40.000 

307 Correio Eletronico: (16K) ajude o Big Bird a entregar as correspondences nos luga- 

res certos Para criancas oe 3 a 6 anos - manual em ingles. 40.000 

308 Caca as Estrelas: (16K) jogo estrategico VocS tern que pegar as estrelas no ceu. Para 
criancas com mais de 7 anos • Manual em mgles 40.000 



LINGUAGENS 

501 Edtasm:(16K)Linguagem Assembler para o 6809 -Ml. 80.000 

502 Forth: (16K) Linguagem Fortn para o 6809. Ml. 60.000 

503 Logo: (32K) Linguagem educativa logo -Ml. 100.000 

SOFTWARE DECOMUNICACAO 

711 Color Terminal: (16K) software de comunicacSo para o projeto Orandao, Aruanda e Ban- 
eosde Dados Particulares Transmite e recebe arquivosem Basic ou linguagem de ma- 
quina. BAUD RATE de 110 a 9600 em DUPLEX/HALF/FUUECHO. Tamanhoda palavra 
7 ou8 bits Paridade par, impar ou neohuma. Stop Bits de 1 a 9. Manual em mgles com 
30 paginas. 120.000 

APLICATIV0S C0MERCIAIS 

401 WRITTER II: (32K) editor de texto com as seguintes caracteristicas: linha de ate 240 
caracteres na impressora e51 colunas na tela. Capacidade para imprimir caracteres 
Portugueses ou simbolos especiais (ate" 10). Paginagao automatica. Centralizacao au- 
tomatica. Manual em Ingles com 90 paginas. 120.000 

402 Elite-Caic: (16K) planilha eletrdnica com as seguintes caracteristicas: ate 255 linhas 
e colunas. Manipula textos, numeros, operadores matematicos, (uncoes trigonome- 
tricas e funcdes estatisticas (maxima mlnimo, media). Emite graficos e permite or- 
denar colunas e linhas. Manual em ingies e portugues - 20 p. 80.000 

403 Color File: (16K) banco de dados que permite manipular 7 arquivos pre-def inidos (en- 
deregos. despesas. investimentos...). Voce tambem pode definiros seus pmprios ar- 
quivos com campos alfabeticos ou numiricos. Manual em inglfts com 10 paginas. 60.000 

UTILITARIOS 

601 Color Kit: (32K) utilitario em Assembler que complement o Color Basic com mais de 
30 fungoes para facilitar a programagao em-Basic ou linguagem demaquma. Manual 

em ingles com 30 paginas. 80.000 

602 Stripper (16K) utilitario que permite compactar programas em Basic eliminando bran- 
cos, comentarlos e concatenando linhas 40.000 

603 Tiny Compiler (16K) utilitario que permite compilar a maioria dos comandos Basic e 
extended Basic. Manual em ingles 80.000 

604 Super Screen: (16K) aumenta o tamanho da tela. Color passa a trabalhar com 57 co- 
lunas e 24 linhas 40.000 

605 Disassembler (16K) disassemblador de programas em linguagem de maquina. 40.000 

606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 
gem de maquina. Manual em ingles. 50.000 



SIM. Oesejo receber os seguintes programas peio(s) qual(is) 
pagarei a quantia de CrS 



& 



NOME: 



END.: 



CIDADE: 



UF.:. 



CEP: 



Para tal, estou enviando um cheque nominal a ATI Editora Ltda.. Av. Presldente Wilson, 165 
- Grupo 1210 - Centre CEP 20.030 - Rio de Janeiro - RJ. • Despesas de Correio incluldas 



TABELA 
DE DESCONTO 

at6 50.000,00 - sem desconto 
de 51.000,00 a 100.000,00- 5% 
de 101.000,00 a 150.000,00 - 10% 
de 151.000,00 a 200.000,00 - 15% 
Acima de 200.000.00 - 20% 



MICROMAQ - Rua Sete de Setembro, 92 - Lj. 106 - Tel.: (021) 222-6088. 
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Sinclair Sinclair Sinclair sin 



Curvas fantasticas 



Jorge Alberto Correia B. Soares 



Passe para o micro a cansativa tare- 
fa de representar as funcCes matema'ti- 
cas com este programa que desenha 77 
curvas planas, alge'bricas ou transcen- 
dentes, e aceita, para isso, tres tipos dis- 
tintos de coordenadas: cartesianas, pola- 
res e parame'tricas. 

No quadro Equacoes das curvas, 
apresentamos as 77 expressOes em BA- 
SIC das curvas desenhadas por este pro- 
grama. funcionamento do programa 6 
simples: ele inicia imprimindo na tela 
a pergunta FORMULA?, solicitando as- 
sim que se digite a equac^o que se quer 
desenhar. 

Se quisermos, por exemplo, obter o 
tra^ado da elipse dada na equapSb nu- 
mero 5 do quadro, devemos digitar a 
f6rmula R= 6/(2— SIN T) e em seguida 
teclar NEW LINE ou ENTER. vfdeo 
ficara" sem imagem por alguns segundos 
(enquanto o programa executa os cal- 
culos em FAST) e logo ap6s con^ara' 
a se delinear na tela, ponto por ponto, o 
graTico da elipse digitada. 

E na tela, no canto inferior esquerdo. 
o programa perguntari: OUTRA CUR- 
VA?, lembrando que acionando qual- 
quer tecla pode-se iniciar um novo ci- 
clo de processamento. 

programa foi ainda estruturado de 
forma a permitir a entrada de quatro 
formas diferentes de equacOes: 

1) Y = (expressao) 

2) R = (expressao) 

3) R**2 = (expressao) 

4) X = (expressao), seguido de Y = 
(expressSb) 

A forma 1 corresponde a utilizaca"o 
de coordenadas cartesianas, com fun- 
96es de imagem y = f (x). As formas 2 e 
3 pressupoem a utiliza9a"o de coordena- 
das polares. com funcOes de imagem 
r=f(t)our i =f(t). 

A forma 4 induz a utiliza9a"o de co- 
ordenadas parame'tricas com duas equa- 
96es conjugadas de imagem x=f(t) e 



y = f(t). Neste caso, 6 preciso ter sem- 
pre o cuidado de digitar em primeiro 
lugar a equa9a"o X (expressa"o). Ap6s 
a entrada da equa9§o X, o programa per- 
guntara" FORMULA DE Y?, solicitando 
entrada entao da segunda equacSb con- 
jugada, isto e\ Y = (expressflb). 

RESTRigOES AO DOMlNIO 

Para se obter a represent^fo graTica 
de fun90es 6 sempre necessario estabele- 
cer o intervalo do dominio dentro do 
qual desejamos a imagem geome'trica. 
Um exemplo pode evidenciar melhor 
como este programa define um interva- 
lo: vamos supor que desejamos o grifico 
de y = f (x) para valores de x compre- 
endidos entre c e d, ou entao em nota- 
cfb matema"tica:y = f(x), c < = x < = d. 
programa faz isto, implicitamente, 
usando os parametros C e D para espe- 
cificar, respectivamente, os limites infe- 
rior e superior do intervalo, e atribuindo 
automaticamente valores a C e D, va- 
lores que sao os mais adequados a maio- 
ria das funcOes (observe na listagem do 
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Exemplo de saida do programa 



programa Curvas fantasticas as linhas 
140, 150, 500, 510, 1040 e 1050). 

Mas hi casos em que esta especifi- 
cacSo do intervalo precisa ser feita ex- 
plicitamente: para evitar paradas no mi- 
cro provocadas por calculos impossi- 
veis, ou para se obter melhor defini95o 
grdfica de certos trechos especificos da 
funqSo. Essa especificasao explicita e' 
sempre feita ao final das equa90es da 
seguinte forma: 
Y = (expressao) :C, D: 
R = (expressao) :C, D: 
R**2 = (expressao) :C, D: 

A especifica9a"o do intervalo, no caso 
de coordenadas parame'tricas, foi pre vis- 
ta no final da segunda equa9a"o conju- 
gada, ou seja, Y = (expressSb) :C, D: . 
Uma outra esp^cie de restri9a"o ao domi- 
nio 6 feita nas linhas 200 e 590 da lis- 
tagem do programa, com o objetivo, 
neste caso, de estabelecer um equili- 
brio adequado entre escala horizontal 
versus escala vertical. Alias, este 6 um 
s^rio problema, por exemplo, nas curvas 
assintoticas. E af temos que dar um jeito 
de ignorar valores muito altos de uma 
coordenada em relaca"o a outra, senffo 
corremos o risco de tra9armos imagens 
emboladas e com p&sima defini9a"o. 

Este programa procura tambem uma 
forma automatica de evitar as paradas 
de processamento provocadas por calcu- 
los impossiveis e, por isso, tentou-se 
na~o utilizar as diviso*es por zero e a 
extra99b da raiz quadrada de mimeros 
negativos ' (dispositivos deste tipo esta"o 
armados nas linhas 500 e 640 da lista- 
gem). 

CONVTTE FINAL 

Quern quiser continuar pesquisando 
sobre esta temdtica tern vaVias opcOes 
a seguir, sendo que a Uteratura existen- 
te sobre Geometria pode ser uma boa 
fonte de consulta para novas imple- 
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PEM "CURVAS FflNTPoTICflS" 


610 


NEXT T 


1600 


NEXT P 


=■0 


PEM MICRO 5I5TEMR5 - JP.C55 


620 


GOSUB 2500 


1610 


FOR S=P+1 TO LEN RS 


30 


CIM P,<80) 




630 


GOTO 3000 


1620 


IF AS: = THEN LET D=UAL 


AO 


DIM 6(80) 




640 


IF SON URL B$=-l THEN GOTO 


A$'P+1 TO 5-1' 


50 


LET 1=0 




610 




1630 


NEXT S 


60 


LET MIN=0 




650 


LET E=SOR URL BS 


1640 


GOTO 1550 


70 


LET MP,X=0 




560 


-ET « aEtCOS T 


1550 


LET C=UAL HSIN+1 TO P-l' 


50 


LET flUX=0 




■= "0 


_ET | =E*5IN T 


1560 


GOTO 1610 


90 


=RINT RT 3.10 


•FORMULA ?•' 


680 


GOTO 590 


2000 


LET 1=1+1 


-CC 


INPUT RS 




1000 


LET C$=R$'. 3 TO LEN R«) 


2010 


LET A'D =X 


110 


:_r 




ICiC 


PRINT RT 3,6, "FORMULA DE I"? 


2020 


LET B<I) =Y 


i£0 


IF RS'.i^'P" THEN GOTO 500 






2030 


IF MIN'.' THEN LET MIN=X 


.50 


IF R$«l>= *' THEN GOTO 1000 


1020 


INPUT -; 


2040 


IF MIN: THEN LET MIN=V 


1*0 


uET C*-lfl 




1030 


CLS 


2050 


IF MA*. f=x THEN LET MAX=A 


150 


LET 0=10 




1040 


LET C=0 


2060 


IF MA». ■ =v THEN LET MAx = v 


160 


G0SUB 1500 




1050 


LET D=2 


2070 


RETURN 


170 


LET G=4*D 




1060 


GOSUB 1500 

FOR T=C*PI TO D+PI STEP 'D* 


2500 


LET DS= + 


180 


FOR X=C TO 


STEP vD-C) f79 


1070 


2510 


PRINT RT 11.15.DS 


190 


l-ET VaVflU B$ 




PI-C*PI) -'79 


2520 


PRINT RT 0.15; DS 


200 


IF RB5 v-G THEN GOTO 220- 


1030 


LET x=UflL C* 


55 30 


PRINT RT 11 .3.DS 


= 1C 


G0SUB 2000 




1090 


LET v =ufl L E$ 


2540 


PRINT RT 21 .15;DS 


220 


NEXT ■ 




1100 


GOSUB 200C 


2550 


PRINT RT 11.27;DS 


230 


GOSUB 2500 




1110 


NEXT T 


2560 


IF AU«:.=AB5 MIN THEN LET flu 


2*0 


GOTO 3000 




1120 


G05UB 2500 


<=AB5 MIN 


500 


LET C=.00A 




1130 


GOTO 3000 


2570 


IF AUx < =RBS MAX THEN LET RU 


510 


LET D=2 




1500 


FAST 


<=RB5 MAX 


520 


GOSUB 1500 




1510 


LET AS=R$+" " 


2530 


LET K =21, AUX 


530 


LET H=4*D 




1520 


FOR N=l TO LEN A$ 


2590 


SLOU 


5A0 


FOR T=C*PI TO 


DtPI STEP iD+ 


1530 


IF A$(Ni=" " THEN GOTO 1530 


2600 


FOR N=l TO I 


P1-C*PI) /79 




1540 


NEXT N 


2610 


PLOT A iNi *K+31 .BIN) •K+21 


550 


if fltta 


THEN GOTO 640 


1550 


LET B$=A*'.3 TO N-l) 


2620 


NEXT N 


560 


LET F='.'HL B$ 




1560 


I" A* (2) •:•=" THEN LET B$=A 


2630 


RETURN 


570 


LET X=F*CQS T 




Si5 TO N-l; 


3000 


PRINT RT 21,0; "OUTRA CURUA? 


530 


LET V=F*5IN T 




1570 


RETURN 






590 


IF RB5 » Hi OP 


RBS Y 1 M THEN 


1530 


FOP P=N+1 TO LEN AC 


3010 


INPUT ZS 


GOTO 


610 




1590 


IF flrsir - THEN GOTO 1650 


3020 


CLS 


tCO 


GOSUB 2000 








3030 


GOTO 50 



Curvas Fantdsticas 

mentacOes: Tambdm i valido inventar 
novas curvas, alterando-se parametros de 
equa9<5es ]& conhecidas ou misturando- 
se partes de duas funcoes. 

Efeitos grdficos especiais podem ser 
incrementados com a altera9ao do pro- 
grama de forma que as imagens de duas 
fun95es fiquem sobrepostas no video, 



ou ainda criando-se o efeito caleisdo- 
c6pio com a simples repeti9a*b de diver- 
sas imagens da mesma funcio. 

£ interessante notar que as curvas 
a partir do numero 59 do quadro de 
Equacdes nao possuem nome especi- 
fico e esta"o ali representadas em re- 
conhecimento ao seu efeito este'tico 



singular. As curvas de Bo wd itch ou de 
Lissajous (equacflb numero 53 do qua- 
dro) sa"o um exemplo tipico de convi- 
te a pesquisa, pois permitem que se ob- 
tenha imimeras formas diferentes de 
curvas com a mera mudanca dos para- 
metros da equa93o. Enfim, 6 s6 expe- 
rimentar e comprovar. 



A GUARDIAN GAR ANTE 
ENERG1A A TO DA PROYA. 




GERADOR ELETRONICO GERATRON: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80. em casos 
deemerg§ncia. Capacidade de 200 VA, 
com autonomia de ate 90 minutos. 

ESTABILIZADORES OE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUACdES E TRANSIENTES. 

Ultra-ra'pidos, protegem o seu CPD con- 
tra variagoes da rede em ate +22% ees- 
tabilizam a saida em + 1 % . Incorporam 
tiltro na entrada, transformador isolador 
e chave de transfer§ncia para a rede. Ca- 
pacidade de 0.25 KVAa 100 KVA. 




SISTEMA NO BREAK GUARDIAN: 
AT0DAPR0VA. 

E a solugao mais completa contra tran- 
sientes, flutuagOes e falta total de ener- 
gia. A Linha B4sica varia de 2,5 KVA a 
100 KVA. DispOe de chave estatica de 
saida e utiliza tecnica de sintese da for- 
ma de onda senoidal, com tiristores. 
A Linha Economica 6 a solugao para 
CPD's de pequeno porte, com capacida- 
de de 0.25 KVA a 5 KVA. 
N3o deixe que a ma qualidade da energia 
el6trica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 



GUARDIAN 



Equlpamentos Eletronicos Ltda. 

Rua Or. Gamier. 579 

Rio de Janeiro CEP 20.971 

Rio: PABX (021) 261-6458 - (021) 201-0195 

Telex: (021) 34.016 
S3o Paulo: (011) 270-3175 

REPRESENTANTES EM T000 BRASIL 




Geratrorr 



Estabilizadores de tensao 



Sistemas No Break 
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AGORA E MAIS FACIL ASSINAR 

_, TMicro 

Slstemas 



Para sua maior comodidade, 

a ATI Editora Ltd a. 

coloca a sua disposicao 

os seguintes enderecos 

de sous representantes autorizados: 



RIO DE JANEIRO 

ATI Editora Ltda. 

Av. Presidents Wilson, 1 65 - Gr. 1 21 

CEP 20030 - Tels.: (021 ) 262-5259 



SAO PAULO 

ATI Editora Ltda. 

Rua Oliveira Dias, 153 

CEP 01433 - Tels.: (011) 853-3800 



PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 

Rua Uruguai, 35 sala 622 

CEP 90000 - Tel.: (0512) 26-0839 



SALVADOR 

Marcio Augusto N. Viana 
Rua Rodrigo Argolo, 279/203 
CEP 40000 - Tel.: (071 ) 240-5727 




ABC UM PROGRAMA QUE 

D COMPATlVEL COM A LINHA IBM-PC 
Qescreve E IMPRIME EM PORTUGUES 
CH FACIL de aprender 

"0TODAS AS RESPOSTAS ACIMA 
E MUITAS OUTRAS 



PC SOFTWARE E CONSULTORIA LTDA. 

Av. Almte. Barroso, n.° 91, gr. 1102 - RJ 

Tels.: 10211 220 5371 e 262 6553 

CONTATOS ABERTOS PARA REPRESENTANTES 

EXECPLAN 

Rua Frei Caneca, 1407 10." ondar 01307 

Tel.: (011) 284 0085 



CURVAS FANTASTICAS 



EQUAQ0ES DAS CURVAS 



1) Funfio constjnte 
V«5 

2) Funfio vjlor absoluto 
Y=ABS X 

3) Fun;ao linear (llnh.i reta) 
Y=X/3.2 

») Clrcunferencla 
R=6 

5) Elipse 
R=6/(2-SIM T) 

6) Parabola 
Y=X»X:-2,2: 

7) Fungao fraclonarla 
Y=1/(X»X):-3,J: 

8) Parabola ciiblca 
Y=X»X»X:-1.5,I.$: 

9) Parabola sealcublca ou de Nell 
Y=(X«X)'»(1/3) 

10) Hlperbole 
R=*/(2-3»C0S T) 

11) Hlperbole equllatera 
Y=1/X:-*,t: 

12) Curva exponenclal 

Y = 1.3"X 

13) Curva logarltalca 
Y=LN X:.2,2: 

14) Curva de probabl 1 ldade ou de 
Causs 

Y=EXP l««(-X«X):-2,2: 

15) Senolde 

Y=SIN X: -PI, PI: 

16) Co-senolde 
Y=C0S X:-PI,PI: 

17) Tangentolde 

Y = TAN X:-«.7,».7: 

18) Secantolde 
Y=1/C0S X:-».7,».7: 

19) Inversa da senolde 
Y=ASM X:-1,1: 

20) Inversa da co-senolde 
Y=ACS Xt-1.1l 

21) Inversa da tangentolde 
Y=ATN X 

22) Clclolde de ciisplde na orlgea 
XxT-SIN T 

Y=1-C0S T:-2,2: 

23) Clclolde de vertlce na origea 
X=T.SIN 1 

Y=1-C0S T:-2,2: 
2«) Clclolde alongada 
X=3'I-5*SIN T 
Y=3-S«C0S T:-3,3: 

25) Clclolde encurtada 
X=ft«T-3«SIN T 
Y=«.-3«C0S T : -3.3: 

26) Catenarla 

Y=(EXP T'X.EXP l«»-X)/2:-2,2: 

27) Eplclclolde de » ciispldes 
X=5-C0S T-C0S (5*1) 
Y=5«SIN I-SIN (5»T) 

28) Oeltolde ou hlpociclolde 
tr Icusplde 

X=2«C0S T.C0S (2*1) 
Y=2«SIN I-SIN (2«T) 

29) Astrolde ou hlpociclolde de 
% ciisplde 

X=C0S T«C0S T«C0S T 
Y=SIN I-SIN T'SIN T 

30) Evolvente da clrcunferencla 
X=5*C0S 1.5'T'SIN I 
Y=5'SIN T-WC0S I 

31) Concolde de reta ou de Nlcoaedes 
R=(2/C0S T).J:-1.<», I . t : 

32) Clssolde de Diodes 
R=2'IAN T'SIN 1:0,1: 



33) Estrofolde 

R=-3»C0S (2«1)/(C0S I) 
3«) Oflurolde 

R=««SIN T-(2»SIN T'SIN I/COS T):0,1 

35) lolluo de Descartes 

R=(6«SIN T'COS I)/(SIN fSIN M 
SIN T.C0S I'COS T'COS t) 

36) TrissectrlJ de Haclaurin 
R=«»SIN (3«I)/SIN (2*1) 

37) Quadratrlz de Hlplas ou de 
Olnostra to 
R=(2 , I)/(PI*S1N I):-. 2, .5: 

38) Cruclforae 
R=2/SIN (2«T) 

39) Curva de Gutschoven 
R=1/TAN T 

<>0) Ciiblca de Agnesl ou "verslera" 

V=8/(».X«X):-5,5: . 
*1) Blfollua 

R=5*SIN I'COS T'COS T 
»2) Leanlscata de Bernoulli 

R"2=C0S (2M) 
*3) Leanlscata 

R««2=SIN <2*T) 
»<•) Rosacea de 3 folhas 

R=SIN (3«T) 
*5) Rosacea de 4 folhas 

R«C0S (2»T) 
»6) Rosacea^ de 5 folhas 

R=SIN (5*1) 
*7) Rosacea de 8 folhas 

R=SIN (««T) 
»8) Caracol de Pascal 

R=»*C0S T.2 

49) Cardlolde 
R=4»C0S !•» 

50) Cocleolde 
R=3*SIN I/I:-2,2: 

51) Nefrolde de Freeth 
R=1.2'SIN (I/2):-2.2: 

52) Nefrolde de Proctor ou Eplcl- 
clolde de Huygens 
X=5*(3'COS I-C0S (3«t)) 
Y=5»( 3«SIN I-SIN (3»T)) 

53) Curvas de Bondltch ou de 
Llssajous 

a) X=SIN (3«T) Y=SIN I 

b) X = SIN (T/2.PI/8) Y = SIN 1:0, <t: 

c) X=SIN (3/2'T) Y=S!N I 

d) X=SIN (2«T) Y=SIN T 

e) X=SIN (3M.PI/2) Y=SIN I 

f) X=SIN (3*1. PI/*) Y=SIN T 

g) X=SIN (1/2. PI/16) Y=SIN 1:0,4: 
5<> ) Esplral de Arqulaedes 

R=T:0,3: 

55) Esplral parabolica 
R'«2=I.«I:0,3: 

56) Esplral logar(talca 
R=EXP 1«»(I/5):-5/10,3: 

57) Esplral hlperbdllca ou reciproca 
R=2»Pl/Tt1/10.3: 

58) Lltuus 
R"2=PI/I: 1/10, ft: 

59) R=1/ft.SIN T 

60) R=SIN (I/3):0,3: 

61) R=1-LN T: 1/10, ft: 

62) R=1-SIN (3/2*1) 

63) R=SIN T'COS (2«T) 
6ft) R=SIN <2'T)-SIN T 

65) R=SIN (2«T):-1/2,)/2: 

66) R=SIN (ft'T):-1/2.1/2: 

67) R=2.C0S (5MI 

68) R=SIN (T/2):0.ft: 

69) R=T'C0S T:-2.5,2.5: 

70) R=SIN (T»3/2):-.25,2.93: 

71) H=SIN (1.5«T. PI/2):. 25, 1.77: 
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Lista telefonica 



Paulo de Carvalho 



Faca a sua lista telefonica particular com este programa que 
permite arquivar em fita cassete, alterar dados durante a digi- 
taga"o ou at6 depois da gravacSb, consultar por nome ou nu- 
mero de telefone, alem de listar todos os nomes do axquivo 
no video. 

Com capacidade para arquivar ate" 200 nomes, esta lista te- 
lefonica tern ainda caracteristicas peculiares: possibilita a lista- 
gem, durante a consulta, de todos os nomes identicos existen- 
tes no arquivo (por exemplo: todos os Paulos de sua agenda se- 
ra"o listados de uma vez); e lista tambem todos os nomes refe- 
rentes a um mesmo numero de telefone. 
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Cursos 



DIGITACAO DE DADOS 
OPERAQAO DE MINIS 
PROGRAMACAO PADRAO 

- BAS / LOG / COBOL / ESTAG. 
LINGUAGENS OPCIONAIS 

- COBOL ANS - IBM 

- BASIC COMERCIAL 
(LABO E SISCO) 

- MUMPS (COBRA 300/500) 
ANALISE DE SISTEMAS 
PROGRAMACAO DE MICROS 

- BASIC I • INTRODUC AO 

- BASIC II - AVANQ ADO 

- CP/M SISTEMA OPERACIONAL 
INFANTO JUVENIL (8 A 16 ANOS) 

- BASIC 1 .o/2.o GRAUS 

- CRIANDO COM LOGO 
USUARIOS DE MICROS 

- VISICALC 

- EDITOR DE TEXTOS 



PEOPLE 

Computacao 



Ensino com Alto Padrao de Qualidadc 

CAMPINAS : Rua Cesar Bierrenbach, 171 - Fone 8-3608 
SAO PAULO : Av. Rouxinol, 201 - Moema Fone 61 4595 
. R. JANEIRO : Aw. N. S. Copacabana, 1417 - Lj. 313 Fone 521-1549, 
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Ap6s digital o programa Lista Telefdnica, de RUN e aguar- 
de que o video mostrara' o menu principal com oito opcoes, 
que sao, detalhadamente, as seguintes: 

1 — Cadastrar: para iniciar o cadastramento, digite 1 e ENTER 
que sistema apresentara na tela o menu de cadastramento, 
com todos os itens a serem informados. Depois de teclar o 
item desejado, aperte ENTER para que o cursor passe para o 
pr6ximo item. No topo da tela aparecera" entSo a mensagem: 
PARA PARAR O ARQUIVO DIGITE "FIM". E digitando-se 
"FIM", em lugar do nome, o programa retornara' ao menu 
principal, sendo que ao lado dessa mensagem surgira' o numero 
do nome que esta* sendo digitado. 

2 — Listar arquivo: como o nome diz, esta op?So lista todos os 
nomes constantes do arquivo - tanto ap6s a leitura da fita 
como ao fim da digita9a"o. Quando terminar a listagem do ul- 
timo nome, o micro perguntara': LISTAR NOVAMENTE 
S/N? A opcSb N faz o programa retornar ao menu principal. 
Ao lado de cada nome listado, 6 apresentado o numero de or- 
dem desses nomes na variavel de controle . 

3 — Ler arquivo K-7: com esta opcSb pode-se ler todos os da- 
dos de cadastro gravados em cassete e transferidos para a me- 
m6ria do equipamento, estando o plug do micro conectado na 
entrada REMOT do gravador. Depois que o micro tiver lido to- 
dos os cadastros da fita, o programa retorna ao menu princi- 
pal e o gravador sera* automaticamente desligado. Para iniciar 
a leitura, tecle S que o gravador sera" ligado. 

4 - Consulta por nome: tecle 4 e ENTER que o programa per- 
guntarsi: QUAL O NOME A CONSULTAR? Entre com o nome 
e o programa fara" entffo a comparacao entre o nome digitado e 
os nomes que exist em na mem6ria. Ao localizar um nome igual 
ao digitado, a tela exibe o nome, endereco, telefone, cidade e 
estado. Em seguida, o programa apresenta a mensagem: 
P/CONTLNUAR APERTE "ENTER". Teclando-se ENTER o 
programa prosseguira na pesquisa, localizara - outro nome e 
mostrari todos os dados referentes ao nome digitado, e assim 
sucessivamente atd que na"o exista mais na mem6ria nenhum 
nome igual ao digitado. Ap6s isso, o programa perguntarf se 
o usuario deseja fazer nova consulta; se a resposta for negativa, 
o programa retornara' ao menu principal. 

5 — Gravar arquivo K-7: a gravacSb em fita de todos os dados 
do cadastro (que, conforme \i citamos, tern a capacidade ma- 
xima de 200 nomes) deve ser feita ap6s a digitacSb de todos os 
nomes e seus respectivos dados. Para tal, entre com esta op9a"o 
(5), coloque a fita no gravador (na"o esquecendo de verificar 
se a fita estd no inicio da parte magn^tica), pressione a tecla 
PLAY/RECORD do gravador e depois aperte a letra S do 
microcomputador. Ao fim da gravacao o programa automati- 
camente volta ao menu principal. 
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LISTA TELEFONICA 



10 REM LlSTA TELEI-0N1CA - I . 01 LARvALHO 

20 REM CURITIBA - PR. - JUNHO/ 84 

30 CLEAR 6000 

40 DIM Nt(200>> DIM EK200XDIH Rt<200> 

SO Din TV 200) « DIM CK200M DIM S*<200> 

60 CL6 

65 K*»STRING»(15,58> 

70 PRINT K$,"L ISTA TELEFONIC A" f K* 

80 PRINT 

90 PRINTTAB(15)"0PC0ES DO PROGRAMA" 

100 PRINTTAB(10>"CADASTRAR - 1" 

110 PRINTTAB(10)"LISTAR AROUIVO - 2" 

120 PRINTTAB<10>"LER AR3UIV0 K-7 »" 

130 PRINTTABUO>"CONSULTA P/NONE * 4" 

140 PRINTTAB(10)"0RAUAR AROUIvO K-7.- 5" 
150 PR INTTABt 10) "CONSUL TA P/NR FONE.- 6" 

160 PRINTTAB(10)"ALTERAR DADOS - 7" 

170 PRINTTAB<lO)"CONTINUAR/ARaulU0..- 8" 

180 PRINTTAB(10)"DIGITE A OPCAO "»i INPUT AZ 

190 IF AX<1 OR AX>8 GOTO 1440 

200 IF AZ*1 GOTO 280 

210 IF AZ-2 GOTO 480 

220 IF AZ'3 GOTO 630 

230 IF AZ«4 GOTO 730 

240 IF AZ-5 GOTO 1050 

250 IF AZ-6 GOTO 1140 

260 IF AZ-7 GOTO 1450 

270 IF AX-B GOTO 1760 

280 CLS 

290 Y-0 

300 Y-Y + l 

310 PRINTTAB(10)"P/PARAR AR9UIW0 DIGITE < FIN > - NOME NR "j 

It 

330 GOSUB 1670 

340 PRINTS 4-64-M2," "» 

350 INPUT N»(Y) 

360 IF N*(Y)»"FIM" GOTO 60 

370 PRINTS 6«64*12," "» 

380 INPUT Ef<Y> 

390 PRINTS 8*64+12, ~ " % 

400 INPUT RS(Y> 

410 PRINTS 10»64+12," "i 

420 INPUT T*(Y) 

430 PRINTS 12«64*12," ", 

440 INPUT C*<Y> 

450 PRINTS 14«64+12,~ "| 

460 INPUT 8«(Y) 

470 CLS I GOTO 300 

480 CLSlPRINTTAB(20)"L ISTAGEM" 

490 Y«0 

500 Y-Y+l 

510 IF N*<Y)-"FIM" GOTO 570 

520 PRINT 

530 PRINTTAB<1>" "|Y| xPRINTTAB< 10)" NOME! "fNSCY) 

540 PRINTTAB(IO)" FONEt ~,T*(Y)> " CIOADE I ",C*< Y > ,"- ",S*< Y 

) 

550 FOR K-l TO 300INEXT K 

560 GOTO 500 

570 PRINT«PRINT"LISTAR NOVAMENTE < S/N > ?" 

580 RI-INKEYl 

590 IF R*-" " GOTO 580 

600 IF R»-"8" QOTO 480 

610 IF R%-"N" GOTO 60 

620 GOTO 580 

630 CLS 

640 PRINTTAB(10)"LEITURA" 

650 PRINT"PREPARE K-7 E DIGITE 'S ' " 

660 Rt'INKEYS 

670 IF RiO"S" GOTO 660 

680 Y-0 

690 Y-Y+l 

700 INPUTH-1. NS(Y), E*<Y), Rt(Y), T*<Y>, CS(Y>, S»<Y) 

710 IF Nt<Y)-"FIM" GOTO 60 

720 GOTO 690 

730 CLS 

740 PRINTTAB<15)"C0NSULTA P/ NOME" 

750 PRINTTAB<15)"N0HE « "j 

760 INPUT Nil 

780 Y-0 

790 Y-Y+l 

800 IF NS(Y>-N1S GOTO 830 

810 IF N*(Y)-"FIM" GOTO 930 

820 GOTO 790 

830 CLS 

840 PRINTTAB<15)"C0NSULTA P/ NOME" 

850 PRINT 

860 PRINTTAB<10)"N0ME ',N»< Y) xPRINTTAB( 10 ) "ENDERECO. . . : 

",Et<Y>, ", ",R*<Y> 

870 PRINTTAB<10)"F0NE « ",T«( Y) :PRINTTAB< 10) "CIOADE I" 

,C*(Y), " - ~,S*<Y> 

880 PRINTlPRINTTA8<10)"P/C0NTINUAR TECLE < E N T E R > " 

890 Rl-INKEY* 

900 IF R*<> CHRS<13) GOTO 890 

910 PRINT 

920 GOTO 790 

930 Y-0 

940 Y-Y+l 

950 IF NlKI'Nll GOTO 980 



960 IF N*<Y)-"FIM" GOTO 1130 

970 GOTO 940 

980 PRINT 

990 PRINT "OUTRA CONSULTA < S/N > ?" 

1000 RS-INKEYi 

1010 IF R*«" " GOTO 1000 

1020 IF RS-"S" GOTO 730 

1030 IF Rt-"N" GOTO 60 

1040 GOTO 1000 

1050 CLS 

1060 PRINTTAB(15>" GRAWACAO" 

1070 PRINT-PREPARE K-7 E DIGITE 'S * " 

1080 Rt-INKEYS 

1090 IF R*<>"8" GOTO 1080 

1100 FOR Y-i TO 200 

1110 PRINTR-1. N*<Y), E»<Y>. R*<Y>, Tt<Y>. CS(Y>, SKY) 

1120 IF NS<Y>-"FIM~ GOTO 60 

1125 NEXT Y 

1130 PRINTTAB<15)"NA0 CONSTA OA LISTA"! FOR K-l TO 6OO1NEXT KJGO 

TO 980 

1140 CLS 

1150 PRINTTAB(20)"C0NSULTA P/No DE TELEFONE" 

1160 PRINTTAB<10)"F0NE • "> 

1170 INPUT T1S 

1180 Y-0 

1190 Y-Y+l 

1200 IF T«(Y)-T1* GOTO 1230 

1210 IF N*<Y)-"FIM" GOTO 1330 

1220 GOTO 1190 

\*4\i LLS 

1240 PRINTtPRINTTAB(10)"C0NSULTA P/ No DE TELEFONE" 

1250 PRINTTAB(10)"N0ME » ";NS< Y) «PRINTTAB< 10)"ENDEREC0. . . I 

"fE*<Y>,", ~,R«CY> 

1260 PRINTTAB(10)"F0NE • "|T*( V) 1PRINTTAB < 10)"CIDA0E * 

~,C«<Y>|" - ",S*(Y> 

1270 PRINTlPRINTTAB<10)"P/C0NTINUAR TECLE < E N T E R > " 

1280 RS-INKEY1 

1290 IF R»OCHRK13)G0T0 1280 

1300 GOTO 1190 

131" PRINT 

1320 PRINTTAB<10)"NA0 CONSTA DA LISTA"»F0R K-l TO 600tNEXTK«GOTO 

1380 
1330 Y-0 
1340 Y-Y+l 

1350 IF Tt(Y)-Tlt GOTO 1380 
1360 IF NS<V)-"FIM" GOTO 1320 
1370 GOTO 1340 
1380 PRINT 

1390 PR INTTABC5) "OUTRA CONSULTA < S/N > f" 
1400 R*-INKEY* 
1410 IF R$«" " GOTO 1400 
1420 IF R*-"S" GOTO 1140 
1430 IF Rt-"N" GOTO 60 
1435 GOTO 1400 

1440 PRINTTAB<10)"0 PCAO INVALIOA "IFOR K-l TO 600SNE 
XTKlGOTO 60 
1450 CLS 

1460 PRINTTAB<15)"A LTERACOES" 
1470 PRINTTAB(10):INPUT"QUAL NOME A ALTERAR ",N1I 
1480 Y-0 
1490 Y-Y+l 

1500 IF N»(Y)-N1* GOTO 1590 
1510 IF N*<V)-~FIM" GOTO 1810 
1515 GOTO 1490 
1520 PRINT«PRINTTAB(15)"A LTERACOES " 

1530 PRINTTAB<10)»INPUT"N0ME ■ "jNSCY) 

1540 PRINTTAB(10):INPUT"ENDERFX0...» " T ES<Y> 

1550 PRINTTAB<10)!INPUT"NR « "|R*<Y> 

1560 PRINTTAB<10)«INPUT"TELEF0NE jT*CY> 

1570 PRINTTAB(10)tINPUT"CIDADE "|C*<Y) 

1580 PRINTTAB(10)«INPUT"ESTAD0 « ",S*<Y> 

1585 GOTO vO 
1590 CLS 

1600 PRINTlPRINTTAB<10)"NOME : ;N*. Y > J PR I NT TAB ( 10 ) "ENDERE 

CO ,ES<Y> ; ". ',R*<Y>«PRINTTAB(10)"F0NE -,Ti<Y):PRIN 

TTAB(10)"CIDADE « " : C*<Y> ; " - ",S*<Y) 

1610 PRINT:PRINTTAB<10)"E' ESTE NOME A ALTERAR < S/N > 7" 

1620 R1-INKEY4 

1630 IF R*-" " GOTO 1620 

1640 IF Rt="S" GOTO 1520 

1650 IF R»-"N" GOTO 1490 

1660 GOTO 1620 

1670 K*-STRING*< 17.58) 

1680 PRINTIPR1NT K* 8 "C ADASTRAMENT 0"-K* 

1690 PRINTS 4»64."N0ME : ": 

1700 PRINTS 6«64."EN0EREC0. .. : " f 

1710 PRINTS B»64, "NR I "| 

1720 PRINTS 10»64."TELEFONC...: 

1730 PRINTS ir»<s4, "CIDADE : '; 

1740 PRINTS 14»64,"ESTAD0 : "« 

1750 RETURN 

1760 CLS 

1770 Y-0 

1780 Y-Y+l 

1790 IF N«<Y>* TIM GOTO 310 

1800 GOTO 1780 

18ID PR1NTTAB(10)"NA0 CONSTA DA LISTA":FOR K-l TO 600:NrxT KIGOI 

60 



Lista Telefdraca 

6 - Consulta por telefone: para fazer esta consulta, basta for- 
necer o numero do telefone: o programa pesquisara e exibi- 
ti na tela todos os dados relativos a este numero. Esta opfSo 
funciona da mesma forma que a opcSo Consulta por nome, 
inclusive com as mesmas mensagens. 

7 - AlteragSo de dados: este item permite a altera?3b de da- 
dos durante a digita5flo, ou mesmo ap6s a gravacao dos dados 
em fita. Na primeira hip6tese, ser^ necessa'rio digitar todos os 
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nomes a serem cadastrados, anotando apenas o nome que se 
quer modificar para, posteriormente, fazer as correcOes deseja- 
das. 

Para modificar, no entanto, os dados ja* gravados em fita, 
deve-se, primeiro, utilizar a op?fo 3 do menu principal e pro- 
ceder a leitura de todos os dados arquivados em fita. Apos a 
leitura (sempre lembrando de retornar a fita at6 o inicio), o 
programa mostrard a mensagem: ALTERA^OES e QUAL O 
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NOME A ALTERAR. Digite entfo o nome a ser modificado, 
que o programa, ao encontrar o nome solicitado, mostrarf na 
tela todos os dados referentes ao nome pedido e, em seguida, 
perguntard: E ESSE O NOME A ALTERAR S/N?. E preciso 
aten$3o ao verificar (comparando-se os dados) se e' realmente 
este o nome a ser corrigido, ou se i somente um homonimo. 
Se nSo for o nome que se quer mudar, basta teclar N que o 
programa passara" para outro nome igual existente no arquivo. 
Mas se for o nome a ser corrigido, responda S que o video per- 
guntard NOME? e o cursor ficara* na posi^ao do nome ate" que 
se entre com o nome certo. 

Supondo-se, entretanto.que o nome que se quer corrigir 
seja outro, tecle ENTER que o nome nao sera" alterado e o pro- 
grama passara* para outro item, e assim sucessivamente ate 
aparecer o item a ser corrigido. Entre enta"o com os dados cor- 
retos correspondentes aquele item e pressione ENTER para o 
cadastro se atualizar. Para retornar ao menu principal, 6 sd 
continuar apertando ENTER. 

Este cadastro, por enquanto, somente esta" atualizado na 
mem6ria do micro, falta ainda atualizar a fita cassete.Para al- 
tera! os dados da fita, pressione a tecla PLAY/RECORD do 
gravador e entre com a opcSo 5. 

8 — Continuar/ Arquivo: atrave's desta opcao pode-se ampliar 
o numero de dados existentes no arquivo. Para acrescentar, 
por exemplo, mais 20 nomes a um arquivo com 50 nomes jd 
cadastrados, 6 necessa'rio colocar a fita no gravador e entrar 
com a op$a"o Ler arquivo K-7 (3). Depois que o micro terminar 
de ler todos os dados cadastrados, surgira* na tela o menu prin- 
cipal. Retorne a fita ate* o inicio e entre com esta opcfo (8). 
programa exibira* o menu de Cadastramento e no canto su- 



perior direito do video aparecera o numero do nome que sera* 
acrescido ao arquivo (neste exemplo, nome nP 51). Depois, 
com a fita \i no inicio, e ao fim do ultimo nome a ser acresci- 
do no arquivo (neste caso, o vigesimo, que faz o total de 70 
nomes no arquivo), deve-se utilizar a op?a"o Gravar arquivo 
K-7 (5) que, como ja* citamos, faz com que o programa retorne 
ao menu principal e desliga automaticamente o gravador. 

LEMBRETES FINAIS 

• As opcQes deste menu que comentamos minuciosamente 
va"o de 1 a 8. Se for digitada uma opcSo maior ou menor que 
estas, o programa acusara* erro com a mensagem: OP£AO 
INVALIDA. 

• Se, por algum descuido, for digitado BREAK no programa, 
e este ainda tiver dados do cadastro na mem6ria, na"o tecle 
RUN, pois desta forma todos os dados serSo perdidos. Digite 
GOTO 60 que os dados na"o serSo afetados. Verifique esta dica 
pesquisando um nome ou listando o arquivo. 

• Verifique se esta* tudo Ok com o seu programa, testando o 
programa antes de retirf-lo da memdria e grava*-lo definitiva- 
mente. Para isso, proceda da seguinte forma: ap6s a digitaca~o 
do programa, grave-o com CSAVE "LISTA"; depois da grava- 
cao, certifique-se que esta* tudo certo com CLOAD? "LISTA". 
Isso e* feito retornando a fita com o programa gravado, e o mi- 
cro, enta"b, compara o programa da mem6ria com o programa 
da fita. Se tudo estiver correto, ap6s a compara?^ (LEITURA) 
surgira* no video a palavra READY e logo abaixo o cursor em 
sua posica"o normal, mas se tiver ocorrido algum erro, aparece- 
ra na tela a palavra MAU. 
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Bi bl loteca Braslleira o> Software 



TEM TUDO PARA 
If SATISFAZER VOCE 
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Telecomunicacoes 

• Programas para Projeto 
Cirandao 

• Programas para Video- 
texto da Telesp 

• Placas RS-232 da 

Arias Microcomunicacoes 
para TRS-80 e Apple 
Modens 
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Software 

O maior acervo de prog ramas 
do Brasil que voce pode: 
testar, usar, administrar, 
programar, desenhar e jo- 
gar livremente. 

Disponiveis para as linhas: 
Apple, TRS-80 e Sinclair 
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Hardware 

CPU's das linhas: 

Apple, TRS-80 e Sinclair 

Interfaces para: 

Disco, Impressoras, CP/M, 

80 colunas e Expansao de 

membria 

Drives para varios modelos 

Monitores e impressoras 



Suprimentos 



Formularios contlnuos 

Diskettes 

Etiquetas 

Fitas para impressoras 




Divirta-se e teste sua inteligencia, neste jogo para 
a linha Sinclair, mesmo que voce esteja... 



Solitario 



Roberto Ribeiro Peixinho 



Como o pr6prio nome )£ diz, este jogo 6 para uma so 
pessoa. Solitario nSo depende de sorte, sendo 
baseado em puro racioci'nio. Ele tern suas origens 
na civilizacao romana, mas s6 se tornou corihecido 
durante a Idade Mddia. A partir dai, espalhou-se por toda a 
Europa, sob duas versOes: uma inglesa e outra francesa. A ver- 
sao conhecida por n6s e a inglesa, com 33 casas e 32 pecas. 

programa, para os micros da linha Sinclair, 6 auto-expli- 
cativo, s6 lembrando aqui que a jogada deve ser feita com as 
coordenadas juntas (B4D4), seguida de NEWLINE. Asjogadas 
iniciais viaveis sao: B4D4; D2D4; F4D4 ou D6D4. Tambem 
nao se esqueca que quando nSo existir mais jogadas a fazer, 
deve-se digital "00" para saber a classifica92o. 
Agora, paciencia e bons lances! 



Roberto Ribeiro Peixinho 4 me'dico, tern como hobby a computacSo e, 
hi tris meses, trabalha com um TKJ35. 
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PEDRC :_•-_ f s 5Ufl JOGRDfl? 

DIGITE .JU-'~" .-E- PRRP 



A tela Jo jogo 



Solitario 



; CSM -♦SOLITflPIO-** 
4. REM 

G REM *ROBEPTO R. PEIXINHO* 
10 GOSUB 1080 

20 C A;~ 

jr n=i to ie 

40 PRINT RfT 1 '-."■' hT ie N I 



50 NE • 

60 FOP M=2 TO IS 

70 PRINT AT H , 1: "| 



140 FOR N=2 TO 5 
150 PRINT AT N.5: 



J" ; RT N . IS k 



";AT N+10 ,5; "1" RT N+10.12 T" 



N 

RT 



4" . RT 5.N+10. 
12.N+10. T" 



AT M . 1 - ■ 



30 NEXT M 
90 FOP. N=2 TO A 
100 FOR M=2 TO 4 



110 PRINT RT N •' .* RT N.M + 11, 
N + ll ,Mj S RT N+: 



120 NEXT M 
130 NEXT N 



"-I1 



160 PRINT RT 5 
"fc" . AT 12. N "I" 

170 NEXT N 

180 FOP M=2 TO 14 STEP 2 

190 PRINT RT 0.M.CHRS i3S+(M-2' 

2' RT 17,M;CHRS (38+ > M-2) /2J 

200 PRINT RT MO.CHR* I29-MM-2' 
/2),AT H.1 - CHRI <29+lM-2>/2) 

210 NEXT M 

220 DIM = = 

230 DIM P*t3,2) 

240 DIM T 17,7) 

250 LET P$(li =" _ " 

260 LET PS (2« =" ■ - 

270 LET PS (3) =" 

280 FOR N=6 TO 10 STEP 2 
FOR M=2 TO 14 STEP 2 



290 



300 PRINT RT N.M,PS(1),RT N+1,M 
- 5 £ 

310 NEXT M 

220 -.= ■- ■■ 

330 for n=2 to 4 step 2 
:ao for m=d to 10 step '=. 

:-so PRINT c- -. M.PS 1 AT N + l M 
=5 a AT N+10,M;P»ll RT N+ll h 

= 3 S 

360 NEXT M 
370 NEXT N 
380 PRINT AT 5, S. PS 3 RT 0,8; P 

S I 3) 
390 print RT - 22 PECRS 'RE d. 

1. EM JOGO 
4O0 _ET c=32 

410 PRINT RT :-. ga — mm A" - 
"| | c i 2- - -~ = 22 ™ 

420 PRINT AT 6 22. ' PECAS" , TAB 2 
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430 LET R=0 

--C --I'. - - _ : £2 na AT y. 
2^1 I ~ - S 24 P ■ AT 10 22 ■ 

450 PRINT RT 11,19 SUA dOGRDfl 

RT ;: 20 DE RT i: 23 PARR 

460 PRINT TRB 19. ^b ^—_ ' 

470 LET 5 X =0 

LET 3 2 =1 

4.00 FOR -=i TO 7 

;C0 FOR =1 TO 7 

BIB LET ~ • =5(2) 

;2C NEXT 

630 NEXT • 

SAC _" " a 4.1 =5 <i> 

see 5lc - 

;60 PRINT RT -J 1 "SEU NOME 
~ 21 1 "10 LETRRS NO MAXIMO" 

S~C INPUT -x 

580 FOB «1 TO 31 

;5C PRINT RT 19 1 S • OUAL E" 
SUR JOGADA": " , RT 21 1 DIS 

ITE JUNTO DE- Pfll 

600 INPUT . s 

610 IF •js = ,, 00" THEN GOTO 1240 

620 IF LEN -JS A THEN GOTO 600 

B30 LET C»CQDE ji i -87 

640 LET L«CODE J$ 2) -28 

~=q _e- :=c::s -js : -:-•- 

660 LET IsCODE J((4 -23 
670 =PImt at 16 20.JSH Jl 2 
AT 15,26; J* (2 J* (41 

" IF L<1 OR L>7 OR C<1 OR C>7 
:p : : OP 3>7 OR Kl OR I>7 t m e 

3T0 1000 
590 if _ - RNI ; ; --£•! ;.;t; 
1000 

~oe :=■ _ =2 and : =2 :p c =i 

: : =2 then goto 1000 

" ; : := _ =2 ^i-z c =6 ;= : »S 

. :• =6 THEN SOTC 1000 

720 :- L =6 RNG : =6 ;p I =6 AN 

[ : «fi THEN >:~: 1000 

780 if l =6 and c =2 or - =6 an 

: : =2 tie-, c-oto 1000 

-4C :- _ = : rnc :-:■ £ cnt 

-C 2' THE'. SOTO 1000 

~?c it ■: = : rnc _-: 2 int 
-: 2 --■=■■ jotc :ccc 

760 IF L=C RNG :-:=2 -'C-0=-2 

1 OZ 1=0 AND 'L-Is2'- ♦ IL-I = -2 



.>1 THEN GOTO 1003 
"0 IF L = I -HEN _6- 

IF L=I THEN LET A- (C+O) /2 

IF C=0 THEN LE^ A»C 

:=:■ "HEN LET H= _-!' 2 



790 
600 
310 IF 
820 IF 



IF 



TIL 
T (H 



: =0 THEN 

A =0 TIEN 



CF T(2 =- THEN BOTC 100C 

rAC PRINT a- :._ ^-; pj(2 RT 2 

350 PRINT A T 2- !£-:=£ - AT = 

-:-: £-: =s 2 i 

S60 F0« Nal TO 20 

376 --f' - N 

380 PRINT A""" 2-r- £-a p= ; HT S 

th-i ,2*a =5 : 

r-C _E ■_ C =? . 

9CC _f- - - a ^; 

310 .e^ t : - =; a 

920 _ET RsR+1 

-;c _=t p=;-; 

940 PRINT a- 4 24; a~ i 2- 

P . RT r 2 4 = 

950 ■■=■' • 

960 PRINT RT L9 - 5INTC HUITC 



l. . 



J AS A 
HANCES TERMINARAM 

970 FOP ■■ '- - TC 

r?C NEXT N 

r-c :- : . L240 
1CCC - - :>.- a- _; _ ; _a . JSAI - 
31 INn a.;;. 

iOlfl PRINT a- 21 - PRESTf 
RTE ICAC a£ RE0RP3 

_c2c pop r :c 

1040 :-;-; 

1CSC PRINT a- c ie 

- a- J U 

la --- 

■— - 

1C6C PRINT AT 6,0 
6'. -a; E_:^C.a= ;; 
1070 PRINT a- r : ==:-: 501 

: : --z-.-z -_:-iA. 
1030 ~?ZT a- - o 

: = . = PL'LAP a 
1090 p= INT a- g g 
■ CRIP N 
:;cc = = :-.- -~ 3 s :-:A >rzir 
:;:c =p-nt i- ^0 c :..-: ,a_6 . 

A! D I AGON A IS 
1120 PRINT a- 11 c 4.SE NAO HOL 1 

EP mais chance de 



a130 PRINT A- 12 2 'ELIHINRR PEC 

AS TECLE 00 papa 

1140 PRINT AT 13.2 "SABER 5 - 

R S 5 I F 1 1" 1 R n A : ~ : ' 

1150 PRINT'at 14. 0."5.y0CE TEH ] 

. JOGADAS, INCLUINDO" 

1160 PRINT AT 15.2 "AS INVALIORE 

AS" 

1170 PRINT a- 17 2 BOA 50RTE..I 

1130 PRINT a- ;; ESTA" PPONTO 

=a=a COMECAP ! N - 
1150 "OP r. = i "0 1C 
1200 -.5-- N 

12^C IF INKEYS "« THEN SOTC -1 
90 

1220 :_f 

1230 RETt •■ 
1240 :_5 

1250 print at 4,s pois e" ■! 

1260 '= p =6 then api',- at 8.4 
-a hen-a..e,- yoce foi um' - _ ib c 
33339513 RInd- sobrapam • p • 

z zZ~z 

.; - IF P ag THEN PRINT AT 8,4 
::e e=ta» 33333. mas at ^o 4 - 
em chance de melhorap at 12.8;' 

RESTARAM a ' PECRS' 
1280 IF P= 4 THEN PRINT AT 8 . 2 
OCE EST A* a*Wfcl;! HA; A" 10 > 
'PODE MELHORAP SUA CLASS IF ICACAC 



".AT 1J 



P-E5TRRRM " . P. " PECRt 



- AT £ 
3 : REGRA 

6 Zzl.E - 



"2.R PECR JOGA 
=6IA .ZZINHR 



1 = JC : ~ - - : "'HEN PRINT RT B ~ 
OCE E" f=HE NI5T0 ".RT 10,4, 
FI0-: a MELHORAP . . . A" 12 . S "RE 

AM p PECAS" 

i:cCl * = p'=i -hen PRINT fiT 6,9 
OCE E" WJIK ' ; AT 10,4, "POR • 
NRO CQ'iziZ^.Zj AT 12 4 RESTRR 
RM RPENA6 P PECRS" 

1310 IF p»l THEN PRINT fl T B -6 
fANTASTICO . " . AT 6 . - <J2CE E g 98 
in — l ".R T 10.5: "SEM L-'j: IDA; 
CAMPEAO"; AT 12,5. "RE5T0U SOMENTE 
= PEC a AT 16.3:"TENTE REPE 

TIR FflTO. . ." 

i:20 PRINT AT 16.2 "QUER JOGAR N 
OURMENTE : 

1330 I c INKE>-S = "" THEN GOTO 1320 
i:40 IF -NrE.3 "5" THEN STOP 
1350 :_6 
1360 RUN 20 
1400 ;A.£ :OLITARIO" 



£ 



ASSISTENCIA TECNICA E 
VENDASDE MICROCOMPUTADORES 



ATARI 



EPSON 



10 FOR I = 1TO20 

20 PRINT "ESTOU EM APUROS' 

30 NEXT I 

40 GO TO 10 



:*§n 



su 



GRAFIX 



Odismac 



■iappkz computar 



PROLjOGICA 

rmcrocomputadores 



5" PHILIPS 

SUPE^BRAIN 



EQUIPAMENTOS ELETRICOS LTDA. 
RUALUIZ GOES, 1894 
FONES: 276-8988 e 5778761 
TELEX: (011) 37.755 DTRD — SP 



Linha SINCLAIR 



Quanto sobra de memoria? 

Quando voce estiver digitando urn programa longo e 
quiser saber exatamente quanto ainda tem de mem6ria dis- 
ponfvel, e s6 entrar com: 

PR INT (PEEK 1<&38<&*256*PE£K 16387 )••-< 
PEEK 16412+256*PEEK 1641 3) +87 



Marcio Yamawaki-SP 



Linha APPLE 



Desafie a velocidade 

Aceite este desafio! Veja se consegue ser ta"o rapido 
quanto esta dica: 

10 REM RAPIDO.. .. n RAPIDISSIMO 

REM ARMANDO OSCAR CAVANHA FILHO 

DIM X<i00)„Y<i00) 

TEXTSHGR2 

X(0)^:i.40-Y<0)=80 

FOR T*i TO 6SHC0L0R»T 

FOR I«i TO 20 

X<I)=270*RND(i) :Y(I>*i80*RND(i) 

HPLOT X(T--l) ,Y(I~i) TO X(I) y Y(I 



15 

20 

30 

35 

37 

40 

50 

60 

) 

70 



NEXT:: NEXT: GOTO 30 



A linha 40 pode ser modificada (sendo que K pode ter 
qualquer valor ate" 100) para: 

40 FOR I = i TO K 

E uma boa surpresa para o pessoal que tem TK-2000: pa- 
ra rodar esta dica e so acrescentar esta linha: 

65 SOUND l*T r 3 

Armando Oscar Cavanha F9 -RJ 



_ln 
die* 





Se voce tem pequenas rotinas e programas utilitarios 
realmente uteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulga-los. En- 
vie-os para a R ED AQAO DE MICRO SISTEMAS - SECAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centra, 
Rio de Janeiro, RJ, CEP 20030. Nao se esqueca de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta podera ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



Linha TRS-80 COLOR 



Efeitos especiais com PCLS 

Se voce esta cansado das cores mon6tonas do fundo 
da tela quando usa o PCLS na tela graTica, tente agora 
este programinha para mudar o seu panorama visual: 



10 PMODE 3, t: SCREEN i , i 

20 FOR A=0 TO 255 

30 POKE 179 y A 

40 PCI 

30 NEXT A 

Observacao: o valor A do POKE determina o padrdo 
colorido do fundo da tela. 

Marcos K. WatanabeSP 



Linha 



TRS-80 



Organize 
seus programas 

Ai" vai um programinha simples 
para fornecer uma listagem im- 
pressa e devidamente organizada 
do conteudo de todos os seus dis- 
quetes: 



10 

IRE 

20 

30 

= 

40 

,= > 

50 
F"a 

60 

DR 
70 
AR 
80 



C I... 8 8 P R I N T a i a ., " * * * I M r 5 R e s S A D E 

TORIOS***" 

PR INT88S , STR IHQ% < 29 „ "-" ) 

PRINTa320/'ENTRE NOME DO DISC 

"3PRINT3LINE INPUT X% 

CLSsLPRINT"DIRETORIO DO DISCO** 

"XfiLPRINT 
CMD"Z" v "0N // :CMD // D 



E se voce possui 
dois drives e deseja 
trabalhar no drive 
1, basta modificar 
a linha 50 (CMD 
"D:i") e a mensa- 
gem da linha 60. 



LPRINTsLPRINTsCLS 

PR].NTS)655/'TR0QUE 

IUE E TECLE" 

PRINTa)715/'<ENTER> 

OU <BREAI<> PARA PARAR' 

LINE INPUT X« : GOTO 10 



0":CMD"Z / V / 0F 

DISQUETE NO 

PARA CONTINU 



Roberto Quito 
de Sant'Anna-RJ 



Linha TRS-80 



Contagem regressiva 

Eis uma boa dica para ser implementada em seus jo- 
gos (ou mesmo em programas se"rios): uma rotina que taz 
a contagem regressiva de 9... ate* 0. 



6 CLEAR500 

7 CLS 

8 INPUT"CONTAGEM A PARTIR DE" ? F:F= 
9-F 

10 CLS 

G=9-F 

F0RI«0T0G 

U$=CHR$<128) 

A*=CHR$(168):Bf>=STRING$(4,131) : 

CHRK148) 

XS=CHR * < 168 ) ! Y%=CHR % (148): ZS*»ST 
RING<B<4 r i31):Z2S=STRING$<4,131> 
23 H<T>-CHR%<i70> 
40 CLS 

42 F=FM:IFF=iTHENXS=US:Z2S=U<6:GOT 
052 

43 IFF=2THENG0T052 

44 IFF=3THENB*=U% : X$«US a Z2**US : GOT 
052 



11 
12 
15 
20 

33 



X%=Uf)SG0T052 
Y%=U$:G0T052 
AS=U%:X9i=U*:Z 



45 IFF = 4THENC%-US;sG0T052 

46 IFF*5TH£MX$«US • C$*US - G0T052 

47 rFF=6THEHZ2%»US 8 XS*U5 : ZS*U5 
052 

48 IFF*7THENA$«tMB 

49 XFF«8THENAt*US 

50 IFF=9THENB%=U8> 
% : C<B=U$ : YS=U* : Z2S*US : P R INT34 1 2 , 
PRINT<D476 r H$ ; :G0T057 

51 IFF^iOTHENB^U'Ji 
CLS : PR INT34 10 , A$ - = PR INT34 i 5 , 
PR INT3474 , X* ; : PR INT3479 , Y<l> 

55 PRINTo)475 7 BS ? sPRINTa)41i y Z1i- : 

NT8539,Z2S| 

57 FOR J«i T025 s 0UT255 , 1 20* N : 0UT2 

12i+N:NEXTJ 

60 NEXT I 

65 CLS:F=0:G0T08 



Raimundo Antonio Monteiro-GO 



52 
53 



GOT 






PR I 



55, 



Linha SINCLAIR 



Centralizando strings 

Crie uma moldura na tela com esta rotina simples 
que centraliza, rapidamente, strings: 

1 LET H*6="************************ 

2 INPUT M9J 

3 LET T=LEN M% 

4 LET N=(28-T)/2 

5 CLS 

6 PRINT AT 9,N ? H$< TO T+4) 

7 PRINT AT 10 r N-"*"jTAB<34+T>/2«"* 
// 

8 PRINT AT ii,N; / '* // ;TAB<32--T)/2 r "M* 
-" *" 

9 PRINT AT 13 r N-H*;< TO T+4) 



Marcel Gameleira-AL 



Linha TRS-80 COLOR 



Aumente a velocidade 

Caso voce ache que o seu micro compatfvel com a 
linha TRS-80 Color nao esta trabalhando suficiente- 
mente rapido, digite enta"o: 

POKE 65495,0 e < ENTER) 

Observe agora que o cursor esta" piscando com mais 
velocidade. Para desativar este high-speed, basta dar 
um RESET e a velocidade voltara" ao normal. Experi- 
mente, para testar, rodar um programa - de p referen- 
da com muitos calculos — e cronometrar o tempo 
gasto para executar as contas. Coloque novamente o 
programa e digite esta dica. Viu a diferenca? Um lem- 
brete importante: nunca tente salvar em fita um pro- 
grama se o computador estiver em high-speed, pois a 
gravacao e o programa na fita iriSo para o espacp... 

Marcos K. WatanabeSP 



Linha SINCLAIR 



Arquivando a tela 

Coloque em seu micro esta rotina em Assembler, que € 
dividida em duas partes: a primeira, que vai do endere?o 
16514 ate" 16526, executa o armazenamento de uma tela 
inteira a partir do endere50 30000; e a segunda, que co- 
me?a no endere90 16527 indo ate" 16540, que coloca ime- 
diat anient e no video a tela que foi armazenada. 



16514 
16522 
16530 
16538 



2 A OC 40 11 30 75 01 D6 
02 23 ED BO C9 21 30 75 
ED 5B OC 40 13 01 D6 02 
ED BO C9 



Addlbero Fernandas GuimarSes-MG 




ompro 



SOFTWARE 



• Soft CP500 (disco), todo tipo 
troco - Paulo - Cx. P. 6125 - 
CEP: 13100 - Campinas-SP.Tel.: 
(0192)41-8860. 

• Vendo ou troco programas pa- 
ra computadores CP 500, CP 300, 
DGT 100 e similares. Tenho jogos 
como: Assault, Acrobatas, Star 
Blazer e outros. 5 mil cada. Faco 
adaptacao de Joystick no CP 300. 
Paulo Roberto, Rua Sargento 
Joao Lopes, 804, Guarabu — llha 
do Governador - RJ. CEP: 21931 
-Tel.: 393-7903. 

• TK85 e compatfveis. Progra- 
mas ine'ditos. Peca relapao pelo 
correio. Bonisoft. Av. Paula e 
Souza, 422, Maracana", Rio, RJ.' 
CEP: 20271. 

• CPM/Basic ou Cobol. Linha 
Apple ou outras. Aceito progra- 
mas objetos para revenda. Tel.: 
(021 ) 263-7267, Sergio/Paulo. 
Hor. comercial. 

• Soft p/Aplle — vendo aplicati- 
vos. Tel.: (011) 548-8842. 

• Programas p/Apple - os me- 
Ihores do mercado internacional 

- 1000 tftulos, Cr$ 25.000 disco 
cheio - Alfamicro - Cx. P. 21 193 
-SP. 

• Programas p/Apple: aplicati- 
vos, utilitarios, compiladores, lin- 
guagens e jogos. Tel.: (021) 239- 
0449, Stela. 

• Programas para Sinclair. Dez 
por apenas 1 ORTN. Peca cataMo- 
go para Softbyte — R. Silvestre 
Ferraz, 1121 - 37500 ItajuW- 
MG. Tel.: (035) 622-1602. 

• Linha TRS80 Color, 300 pro- 
gramas a sua escolha, peca cata- 
logo, Jose" Luiz Pereira, Cx.P. 
1536 - Foz do Iguacu - CEP: 
85890 -PR. 

• Commodore-64. assessoria, 
software, manutencao e acess6- 
rios. Av. Brig. Faria Lima, 1644, 
s/l 26 - Sa"o Paulo - SP. Fone: 
(011) 843-1065. 

• Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a li- 
nha Sinclair ou TK2000, e envie 
tamtam detalhes do seu micro. 
Rua Sold. Hercilio Tardeli, 152 

- Petr6polis - RJ - CEP: 25600. 

• Micro 6 movido a programa da 
Microlove. Reabasteca o seu Sin- 
clair e TRS-80 com nossos progra- 
mas. Peca lists tel.: (011) 448-4372. 



• Apple & Compatfveis progra- 
mas e manuais — solicite listas — 
Domfnio Publico Soft & Man - 
Cx. Postal 201 - S. Bernardo do 
Campo - CEP: 09700 - Sao Pau- 
lo. 

• Vendo software p/todos os mi- 
cros. Fitas e disco. Tel.: (011) 
241 -9064, SP. 

• Vendo compilador Basic e 
Forth, editor Assembler, ZX-De- 
bug. Micro Bug, MOS I (25 po- 
derosos comandos) para TK 85/ 
CP 200 Speed, gravados em 
Eprom Cr$ 60.000 cada. Vendo 
fita com 10 programas para TK 
2000/85 Cr$ 40.000. Gravo 
Eprom sob encomenda. S. C. 
Sampaio, Rua Pe. Leopoldo Fer- 
nandes, 360 - 60.000, Fortaleza- 
CE. 

• Vendo, troco programas Sinclair 
TRS80 peca catalogo. Oswaldo 
Alencar — Av. Gentil Bittencourt, 
124/1301 - Belem - Pa. CEP: 
66000. 

• Compro interpretador Logo, 
em fita cassete, para TK2000. 
Preco a combinar. Tel.: 286-1411, 
tratar com Eduardo. 

• Folha de Pgto., Contabilidade, 
Contr. Estoq., Contas Pag/Rec, 
Contas Correntes, Faturamento, 
Banco de Dados, Edit. Textos, 
Plan. Eletronica, Utilitarios, Gera- 
dores de Prog., Copiadores, Ma- 
nuais, para CP 500 e Apple. Te- 
mos tamWrn soft para IBM-PC. 
Despachamos para todo o Brasil, 
Microservice — O Software Com- 
pleto. R. Gaspar Fernandes, 16 — 
SSo Paulo - Tel.: (011) 215- 
9283. CEP: 01549. 

• Soft p/TK e CP. Lista gratis - 
FM Software - Cx. P. 85 Tatuf - 
SP ou R. Proenca, 31 1 - J. Proen- 
ca — Campinas. 

• Vendo programas p/CP500. 
Tratar c/A. Gaeta Mq. Sa"o Vicen- 
te, 512/1002- Rio de Janeiro-RJ. 



EQUtPAMENTOS 

• Poligames Video & Micro: 
Toda linha Prolbgica, Microdigital 
e Apple. Teclados profissionais p/ 
linha TK e AS-1000. Softhouse 
programas profissionais p/CP500, 
jogos e aplicativos p/TK2000 e 
CP/400. Atendemos reembolso 
postal. Nossos precos sa"o os me- 
Ihores, procure-nos para conferir. 
Rua Cardoso de Moraes, 61 , s/lo- 
ja 311 — Bonsucesso, Rio — Tel.: 
(021) 270-9197/290-2598. 



D I VERSOS 



CURSOS 



• Manuais em portugues para mi- 
cros e perifericos Commodore. Es- 
creva p/W. Belo, R. ItamaracS", 47, 
D. de Caxias, RJ. ou tel.: (021) 
771-6889. 

• Vic Commodore manutencSo s6- 
ria, mil soft, manuais em portu- 
gues, cabos, capas, interface K7 e 
RS 232 para CBBS e projeto Ci- 
randao, manuais tecnicos para 
Epson, TRS 80 e conectores, etc. 
Bartft Computadores tel.: (021) 
262-1 21 3 - Av. Nilo Pecanha, 50/ 
2407 - Rio. 

• Traduzo qualquer publicacab 

— Livros, Revistas, Manuais, Arti- 
gos em ingles, na £rea da Micro- 
computacSb. InformacSes com 
Jorge Eider Silva — Village dos 
Mares - Quadra 18 - Bloco B - 
Casa 15 - Capim Macio - 59000 

- Natal-RN. 

• Compro micros, perifericos, 
etc. Tel.: (011) 241-9064, SP. 

• Apple x Video Texto, Ciran- 
da"o. Nab deixe seu Apple por fo- 
ra! Temos tudo p/Apple, informa- 
coes tel.: (011) 241-9064, SP. 

• Vendo micros, perifericos, etc. 
Todas as marcas e modelos. No- 
vos e usados c/garantia. Consulte- 
nos. Tel.: (011) 241-9064. 

• Instalo joystick de videogames 
compatfveis com Atari p/micros 
CP200 e CP300. Tratar com Nel- 
son. Tel.: (011) 469-491 1 - SP. 

• Vendo drives, impressoras, in- 
terfaces, expansoes, monitores de 
video, joystick, software, tudo em 
micros e para micros. Novos e 
usados c/garantia. Consulte-nos. 
Tel.: (011) 241 -9064, SP. 

• Assistencia tecnica p/micros e 
perifericos. Todas as marcas. Tel.: 
(011)241-9064, SP. 



• O NETC — Nucleo de Ensino 
de Tecnologia e Ciencia, estara" 
promovendo a partir do mes de 
marco, cursos ine'ditos destinados 
a Tecnicos e Engenheiros Eletrd- 
nicos, Eietricos e de Telecomuni- 
cacoes. Todos os cursos sab mi- 
nistrados com auxi'lio de transpa- 
rencies e apostilas. incluindo 
amplo uso de laborat6rio de 
Hardware, contendo entre outros 
equipamentos, microcomputado- 
res da Suporte Engenharia desti- 
nados a treinamento e pesquisa 
com microprocessadores e peri- 
fericos. Alguns exemplos destes 
cursos sa*o: Eletronica Digital I, 
Computadores e Microcomputa- 
dores Digitals, Hardware de Sis- 
temas Baseados no Microproces- 
sor Z-80, Hardware de Siste- 
mas Baseados no MP 8080/85, 
Hardware de Sistemas Baseados 
no MP 6800, Software do MP 
Z-80, Software do MP 8080/85, 
Hardware de Teleprocessamento, 
Software de Teleprocessamento, 
Amplificadores Operacionais e In- 
terfaces A/D e D/A. Maiores in- 
formacoes e pedidos de catSlo- 
gos de cursos pelo telefone: 
(021) 220-1989, Rua Alvaro Al- 
vim, 37/29 andar - Centre Rio 
de Janeiro - RJ. CEP: 20031. 

• A Bits e Bytes Computadores 
ministra regularmente cursos de 
Basic e DBasic II para computa- 
dores da linha CP 300/500 e com- 
patfveis IBM/PC. Aulas em peque- 
nas turmas, tambem para crian- 
cas. Em dias e horario de sua con- 
veniencia, Maiores informacoes: 
322-1960 ou 322-2721, Estrada 
da Gavea, 642, loja B, Sao Conra- 
do, RJ. 

• Mumps — A Matriz promove, 
mensalmente cursos de Mumps. 
R. Maestro Elias Lobo, 70 - CEP: 
01433, SP. Informacoes (011) 64- 
0688. 



PARA ANUNCIAR NESTA SEQAO 
ESCREVA PARA: 



Av. Presidente Wilson, 165/Grupo 1210 

Centro — Rio de Janeiro/RJ — CEP 20030 

Tels.: (021) 262-6306 

Rua Oliveira Dias, 153 — Jardim Paulista 

Sao Paulo/SP — CEP 01433 — Tels.: 

(011)853-3229 




fil.S. Services 



SOFTWARE -CP/M 



• Admin istraca"o Imbveis/ 
Condom fnios 

• Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hot6is 

• Correcao MonetSria balango 

• Faturamento Servigos Medicos 
(Convenios) 

• Formulacao/Calculo de Racoes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n° 210 - C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (021) 551-6699 



rruc RoeouiPO 



COMPUTADORES 
E PERIFERICOS 

UNITRON 
MICROCRAFT 



VENDAS 
LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 



Av. Mai. C imari 271 s/loja 101 
Tel: (021) 262-3289— R.|. 



MACH FORM 

MAQUINAS 
E FORMULARIOS LTDA. 



REBOBINACAO DE FITAS 
DE IMPRESSORAS 

ELGIN. DISMAC.ELEBRAeoutras 

encadernaqOes 
serviqos graficos 
off-set — tipografico 
nota fiscal - fatura 
implantacao - renovacao 
compra e venda de 
maquinas de escrit0rio 

EM GERAL 

CONTRATO DE MANUTENCAO 

E CONSERTOS 

ARTIGOS DE PAPELARIA 



Rua do Proposuo. 42 Sob 

Saiide — R J 

Tel (021)233-1593 



ALBAMAR 

ELETRONICA LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 C10 C15 C20 
C30 e outros 



•FITAS 

magn£ticas 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e8" 



Rua Conde de Leopoldina. 
270-A SSo Cristovab — RJ 
Tels. (021) 580-6729 
580-8276 



PadoS 






pubucacGes TECNICAS 
Disponiveis em portugues 

1 - Curso de dBase II 

2 - Aplicativos dBase II 

3 - Relatbrios dBase II 

4 - Curso de dBase III 

5 - Curso de Lotus 1 -2-3 
6-flpllcot. Lotus 1-2-3 

7 - Curso de Sumphonu 

8 - Curso de Framework 

9 - Curso de DOS (PC) 

1 - Curso de Unix 

1 1 - Curso de linguagem C 

1 2 - Curso de LUordstar 



ma MiN.°otit 



V€NDRS DISPONIVtlS PflRfl 

TODO BRRSIl 

Ft Santos. 336 • CJ. 42 

C€P01418-SP 

T€L: (011) 285-0132 




PARA PROBLEMAS COM MATERIAL DE 

0ESENH0 PINTURA - ENGENHARIA 
PAPELARIA - ESCRITORIO ■ MAQUINAS PI 
ESCRHPRI0 E SUPRIMENTOS EM GERAL 
B E ,, BELBAZAR 

L /j eletrOnico 

ond* voc* AINDA enconlri prcco 
• qmlldKk 6* ANTIGAMENTEI 

AV. ALMIRANTE BARROSO, 81 - U "C" 

TEL 262-9229 262-9088 • 2408410 - 2218282 

RIO DE JANEIRO • CASTELO 



© /MICROLOGICk 

v^*^ Engenharia de Sistemas Ltda. Consultoria de Hardware 



ASSISTtNCIA TfCNICA 
A MICROCOMPUTADORES: 

Apple. TRS 80. IBM PC. ZX 81. TK 82. 

TK 85. CP 200. CP 500. Unitron. 

Impressoras e demais perifericos 
Jogos de xadrez e outros compatfveis. 

Compramos seu micro 
funcionando ou nio. 




VENDEMOS 
INTERFACES 
DIVERSAS P/ 
LINHA APPLE. 



Fazemos transformacdea 
e alinhamento de Drivers. 



UTILIZE NOSSO 

CONTRATO PARA 

ASSISTENCIA TECNICA 



Av. Presidente Vargas, 542/815 - Tel.: 263-9925 



MODEMS 

ANALOGICOS - BANDA BASE - SINCRONOS - ASSINCRONOS 



CIRANDAO EMBRATEL 



...ModeloTS-1275eTS-300 



TROPICAL SISTEMAS LTDA. 

Av. Antonio Abraao Caran, 430 - 8.° A. - Tel. 
Belo Horizonte - Minas Gerais - CEP 30.000 



(031) 441-1636 - Telex: (031) 1247 



Representantes: Rio - Sao Paulo - Brasilia - Curitiba - Florianopolis - Fortaleza - Maceio - Salvador 
Ribeirao Preto - Uberlandia. 
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TATCHELL, J. e BENNETT, B., 
Introducao ao microcomputador. 
Editors Lutecia. 



Dedicado, segundo pronuncia- 
mento da editors Lutecia, a "me- 
ninos e meninas de 8 a 16 anos", 
este livro integra uma serie com a 
qual os editores pretendem ganhar 
uma fatia do rentSvel mercado ju- 
venil da Inform^tica. 

Todo const ru (do d base de 
quadrinhos e pequenas legendas, o 
livro apresenta uma diagramacab 
algo conf usa e a ocorrencia de de- 
finicoes simplistas e conceitos por 
vezes imprecisos, o que torna 
quest ionavel sua eficiencia em re- 
lacao ao leitor-alvo: para o publi- 
co infantil, ele peca por abordar 
(geralmente, em duas paginas) 
temas complexos com o chip, re- 
des locais e controle de processos, 
e para os adolescentes este tipo de 
literatura e inconcebfvel, visto 
que os jovens na faixa de 15 anos 
possuem condicSes de voos bem 
mais altos. 

Alguns dos temas tratados nos 
capftulos deste livro sab: introdu- 
cao; o micro; programacao; tecla- 
do; como executar e guardar pro- 
gramas; graficos e animacSes; mu- 
sica e efeitos sonoros; o micro por 
dentro; uma pastilha por dentro; 
historia do microcomputador; re- 
des de computadores; controle 
com micros; acessorios para o 
micro e como escolher seu micro. 

Na mesma linha, a Lutecia lan- 
cou ainda outros dois tftulos da 
serie. O Guia pra'tico de programa- 
cao em BASIC, de Brian Smith, 
que trata em seus capftulos de 
assuntos como o funcionamento 
do computador; dando instrucSes 
ao computador; primeiros passos 
em BASIC; como utilizar o 
INPUT; o que fazer com o 
PRINT; desenhos; jogos; loops; 
subrotinas; grificos e sfmbolos e 
dicas de programacao, entre ou- 
tros temas. 

O terceiro livro traz programas 
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de jogos espaciais, sendo de auta- 
ria de Daniel Isaaman e Jenny 
Tyler. Neste, encontram-se lista- 
gens de programas, ja adaptados 
aos equipamentos nacionais (li- 
nha s Sinclair, TRS e Apple), alem 
de sugestdes e dicas de programa- 
cao de jogos. Todos os livros sab 
traducoes. 



PIAZZI, Pierluigi, Jogos em 
Linguagem de M equina. 
Editors Moderns. 



Jogos em Linguagem de Ma"- 
quina pode ser considerado uma 
especie de antologia de programas 
para computadores compatfveis 
com o Sinclair 2X-81. Todos os 
programas apresentados neste li- 
vro sao jogos escolhidos segundo 
varios criterios e nab tern o unico 
objetivo de divertir. Embora bus- 
que o divertimento, o livro pode 
ser utilizado como fonte de con- 
sulta para atividades tecnicas, di- 
daticas e educativas. 

Por se tratarem de jogos. os 
programas contidos no livro exi- 
gem uma rapidez de processamen- 
to impossfvel de ser obtida com o 
BASIC. Assim, a parte essencial 
de todos os programas e elaborada 
em ASSEMBLER. 

Para tornar a obra acessfvel a 
um maior numero de pessoas, a 
parte em linguagem de maquina 
foi listada de maneira que nab se 
precise conhecer esta linguagem. 
O primeiro capftulo oferece o 
programa de um Monitor que per- 
mitira a introducao de codigos no 
computador de forma bem 
simples. 

Ao final do livro sab apresen- 
tados dois apendices: no apendice 
A foi listado um programa Moni- 
tor para aqueles que possuem um 
micro com apenas 2Kb de mem6- 
ria RAM; no B foram publicadas 
algumas c6pias da tela para que o 
leitor possa se organizar melhor, 
caso queira alterar um display em 
algum jogo. 
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MENASCE, D.; SCHWABE, D. 
Redes de Computadores-Aspectos 
Ticnicos e Operacionais, 
Editors Csm pus. 

A tecnologia chamada comu- 
tacab por pacotes tern representa- 
do um papel revolucionario na 
Area de comunicacab de dados. 
Isso porque ela permite que o 
desenvolvimento verificado na 
area de computacab seja direta- 
mente aproveitado na transmissab 
de dados. 

Como resultado desta tecnolo- 
gia, surgiram as redes de compu- 
tadores, que formam a base dos 
modernos sistemas de processa- 
mento distribufdo. 

Assim, este livro trata, inicial- 
mente, dos aspectos de organiza- 
cao de uma rede de computado- 
res, descrevendo, em seguida, pro- 
tocolos que permitem o seu fun- 
cionamento. Alem disso, os auto- 
res examinam t6picos relaciona- 
dos as centrais de comutacab de 
pacotes, redes locais de compu- 
tador e banco de dados distribuf- 
dos. 

Estes assuntos estab subdivi- 
didos do capftulo 2 ao 9 de Redes 
de Computadores. Nos capftulos 
2 e 3 sab discutidos os mecanis- 
mos basicos usados na organiza- 
cab das redes de computadores e 
os procedimentos usados para 
controlar o seu funcionamento. 
quarto capftulo apresenta as 
formas de um computador acessar 
uma rede, e, no quinto temos as 
formas de se ligar processos que 
executam em vaYios computado- 
res ligados a rede. O capftulo 
seguinte mostra os protocolos que 
oferecem services do tipo acesso 



remoto por terminal e transferen- 
cia de arquivos. No capftulo 7 sab 
discutidas formas de organizacSo 
dos n6s de comutacab da rede, 
enquanto o 8 introduz as redes 
locais, e o 9 trata de bancos de 
dados distribufdos. O livro consta, 
ainda, de um capftulo de conclu- 
des. 




MIRSHAWKA. V.. Conhecendo e 
Utilizando o TK-2000, 
Editors Nobel. 

O objetivo do autor de Co- 
nhecendo e utilizando o TK- 
2000 e mostrar ao leitor, de ma- 
neira didatica, as diversas aplica- 
c6es do TK-2000 Color. Porem, 
esse objetivo nab impediu que a 
parte pr£tica fosse desenvolvida. 

Assim, o autor elaborou e co- 
mentou programas para desenvol- 
ver problemas de matemaYica e f f- 
sica; produzir sons que podem se 
tornar melodias; desenhar figuras 
reais e abstratas, inclusive graficos 
animados; criar desenhos de duas 
e tres dimenso'es, usando modelos 
graficos de baixa e alta resolucab, 
alem de programas para o seu di- 
vertimento em geral, procurando 
utilizar quase todas as instrucfies 
ou comandos da linguagem 
BASIC-APPLESOFT. As explica- 
tes sobre os comandos utilizados 
nos programas sab dadas a medida 
que eles aparecem, e a descricab 
do uso correto dos diversos co- 
mandos, embora superficial, e su- 
ficiente para que se possa compre- 
ende-los. Ao final de cada capftu- 
lo o leitor podera resolver tarefas 
que o ajudarab a dominar, ainda 
mais, o seu TK-2000. 



Endereco das Editoras: 



Editors Csmpus - Rua Japeri, 35, Rio Comprido, CEP 20420, 

Rio de Janeiro, RJ; 

Editors Lutecia - Rua Argentina, 1 71 , CEP 20921 , Rio de 

Janeiro, RJ; 

Editora Moderns - Rua Afonso Bras, 431, CEP 0451 1, Sab 

Paulo, SP; 

Editora Nobel - Rua da Balsa, 559, CEP 02910, Sab Paulo, SP. 



MH^FKXX^MPUTADORSCOLOR 

VOCE TEM QUE ESTAB PREPARAD0 
PARA SE DESENYOLVER COM OS 

TEMPOS QUE ESTAOAf £0 
CP 400 COLOR t A CHAVE DESSA 
EV0LUCA0 PESS0AL E PRQFISSIONAL 








POR QUE? 
PORQUE 
CP 400 COLORE 
I'M COMPUTADOR 
PESSOALDE 
TEMPO INTEGRAL: 
(TIL PARA A 
FAMfUA T0DA. DIA LNTFJR0 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO. E MITFO MAIS EN1OO0- 
NANTE PORQUE. ALEM DE 0FERECEK 

jogos lN&tfros, I o untco com 

2 JOYSTICKS ANALOGICOS DE ALTA 
SENSIBQJDADE. QUE PERMTTEM MO 
VIMENTAR AS LMAGENS EM TODAS 
AS DTREC0E5. MESMO. NA HORA 
DE TRABALHAR E ESTUDAR. CP 400 
COLOR MOSTRA SEU LAD0 SER30: 
MEMORIA EXPANSE EI,. PORTA PARA 
CQMUNTCACAO DE DADOS. SAfDA 
PARA LMPRESSORA, E UMA 0TLMA 
NTTIDEZ COM LMAGENS C0LORIDAS 

COMO SETLTJOISSO SAO 
BASTASSE. A PROL0GICA AINDA OFE 
RECE A GARANT1A DF QUALIDADE 
DE QUEM t liDER NA TECNOLOGIA 
DE COMPiTADORES. E PRECO 
MAIS ACESSfVE NA CATEGORY. 

NUMA ERASE- SE VOCE NAO 
QLTSER aiEGAR ATRASADO AO FU 
Tl "RO. COMPRE SEU CP 400 COLOR 
LMEDIATAMENTE. 

EMOCAO E INTEUGENQA MM 
EQLIPAMLNTOS6. 
•MICHOPR0CESSAD0R 6809EO0M 



ESTRITTURA INTERNA DE 
16BTTSE CLOCK DE FREQUENOA 
DE ATS 1.6 MHZ 

•POSSIBtLITAOlISODEATE 
9 CORES. E TEM IMA RESQLUCA0 
GRAFICA SUPERIOR A 49.000 
P0NT0S. 

• MEMORIA ROM 16K BYTES 
PARA SLSTEMA OPERATIONAL E 
INTERPRETAIXJR BASIC. 

• MEMORIA RAM. CP 400 COLOR 
rlM'Al'lShiMVE ?_M I « >ls MODELOS 

•MODEL01GK: 
EXPANSiVEA 
b-iKRVrES 

'MODEL064K: 

ktf— ^ ATEfaKBHES 
OUANDOUSADO 
COM NOVO 
DISK SYSTEM, 
CP450. 

• CP 400 COLOR D1SP0E DE 
CARTLCHOS DE PROGRAMAS COM 
16K BYTES DE CARCIDADE. 

QUE PERMITEM CARREGAMENTO 
INSTAKTANEOOE JOGOS. 
UNGL^GENS E APUamoS C0M0 
BANCO DE DADOS , PLANLHAS 
DE CALCL10. EMTORES DE TEXTOS 
APUCAmoSFINANCEIROS. 
APUCAnVOSGRARCOS, ETC 
•SAfDA SERIAL RS 232 CQLIE 
PERMJTE COMUMCACAO DE DADOS 
ALEM DO QLJE, ATRAVfe DESTA 
PORTA. VOCE PODE CONECTAR 





QL^LQUER LMPRESSORA SERIAL 

OU ATI MESMO 

F0RMAR UMA 

REDEDETR^BA 

LH0COM 

0LTR0S MICROS. 

• porta para 
gravad0rca& 

sete com gravacio e lettura 

de,vi.tavki.i:k;idaDE, 

• saih.vs i'aka tv em cores e moni- 
tor pr0f1ssj0nal. 

• duas lntradas p.ael^ joysticks 
analogicos que oferecem 
inrtnttas posic&es na teu. 
enquanto oitrqs tem somente 

SDffiECCES 

• AMPU BIBUOTECA DE SOFTW-ARE 
jADISPONfva. 

• AUMENTACAO 'ITS. 

\T1A, TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 

E REVENDEDORES PROLOG1CA 

TECNOLOOA ■■■ 
PROLOGCA ■■■ 
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QUEM TEM UM,TEM FUTURO. 



Apresentamos o 

TK 20001 

Be roda o pragrama 

mais famoso 

do mundo. 

De hoje em diante nenhuma 
empresa, por menor que seja, pode 

dispensar o TK 2000 II. Por que? 

novo TK 2DO0 II roda o 
Multicalc:a versao Microsoft do 
Visicalc? o pro grama mais famoso em 
todo o mundo. 

Isto significa que, com ele, voc£ 
controla estoques, cusios. comas a 



pagar. faz sua programacao financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Deialhe importante: o novo 
TK 2000 II. com Mukicaic. pode 
intercambiar planilhas com 
computadores da linha Apple* 

E, como todo business computer 




que se preza, ele tern teclado 
professional, aceita monitor, diskette. 
impressora e j£ vem com interface. 

AIGm de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidada 

Portamo, peca logo uma 
demonstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de memoria. 

A mais nova estrela do show 
business so espera por isto para 
estrear no seu neg6cio. 

Preco de lancamemo* (128 Kl; 
Cr$ 2.649,850 

A1ICRODIGIML 

computadores pessoais 



Open for Business. 





1 SujeflQ a aitaa^aD sen prtMo msa 



